Вопрос № 20898: приветствую всех.огромная прось у кого есть книги по Delphi прошлите пожалюйста на zeromaps@rambler.ru. в интернете ничего толком не нашёл.
спасибо....Вопрос № 20905: У меня несколько вопросов:
1) Как мне реализовать выбор папки через определенный диалог, т.е. вывести на экран диалог выбора пакпи.
2) В Image и Clipborad имеется рисунок, как мне его сохранять с определенным качеством. Т.е. если качество 50 ...Вопрос № 20921: Как в в строку записать символ '. В общем мне нужны кавычки в SQL запросе. Использую ADOQuery.SQL.Add
Если как-то с помощью Unicode или ASCII, то напишите плиз, как правильно расписать....
Вопрос № 20898
приветствую всех.огромная прось у кого есть книги по Delphi прошлите пожалюйста на zeromaps@rambler.ru. в интернете ничего толком не нашёл.
спасибо.
Отправлен: 15.05.2005, 13:42
Вопрос задал: zeromaps (статус: 3-ий класс)
Всего ответов отправлено: 2
Отвечает: Pushkin
Здравствуйте, zeromaps!
Отправляю на мыло! Отличный учебник включает в себя несколько уроков, в процессе чтения которых можно хорошо освоить Delphi.
Ответ отправил: Pushkin (статус: 2-ой класс)
Отправлен: 15.05.2005, 21:03 Оценка за ответ: 5
Отвечает: sir henry
Здравствуйте, zeromaps!
А Вы, похоже, и не искали. :)
http://www.ruhelp.org/pages/det.php?id=7&l=B
Ссылок на книги море, надо только быть внимательным. :)
Это по поводу электронных. А если Вас интересуеют бумажные, то:
www.bolero.ru
www.ozon.ru
Ответ отправил: sir henry (статус: Профессор)
Отправлен: 16.05.2005, 09:56
Вопрос № 20905
У меня несколько вопросов:
1) Как мне реализовать выбор папки через определенный диалог, т.е. вывести на экран диалог выбора пакпи.
2) В Image и Clipborad имеется рисунок, как мне его сохранять с определенным качеством. Т.е. если качество 50 % то и размер рисунка в 2 раза меньше стопроцентного.
Отправлен: 15.05.2005, 18:11
Вопрос задал: CJ (статус: Студент)
Всего ответов отправлено: 4
Отвечает: Pushkin
Здравствуйте, CJ!
1.
const WideString RootDir = "C:";
AnsiString Dir = "";
if ( SelectDirectory( AnsiString("Выбирете директорию"), RootDir, Dir ) ) {
edDestDir->Text = Dir;
}
Если пишешь на Delphi, то не забудь включить uses FileCtrl;
Ответ отправил: Pushkin (статус: 2-ой класс)
Отправлен: 15.05.2005, 20:30
Отвечает: X
Здравствуйте, CJ!
1)Для выбора папки можно использоать DirectoryOutline или DirectoryListBox(выбраная папка в свойстве Directory).
2)Если надо уменьшить/увеличить рисунок, то см. пример http://x2005.h15.ru/graphwapi.zip(сразу сознаюсь - пример не мой).
Ответ отправил: X (статус: 4-ый класс)
Отправлен: 15.05.2005, 20:48
Отвечает: And1
Здравствуйте, CJ!
1) Кидаем на форму:
DirectoryListBox, FilterComboBox, DriveComboBox, FileListBox - с закладки Win 3.1
Связываем компоненты:
DirectoryListBox =>FileList - FileListBox
DriveComboBox =>DirList - DirectoryListBox
FilterComboBox =>FileList - FileListBox
Получилась небольшая бродилка по файлам. Так можно свой Total Comander написать :)
А если нужен диалог выбора папки то можно самому на отдельную форму кинуть DirectoryListBox и DriveComboBox.
2) есть хорошая библиотека для работы с jpeg, называется jpeg :)
Ответ отправил: And1 (статус: 2-ой класс)
Отправлен: 16.05.2005, 13:26
Отвечает: VBA
Здравствуйте, CJ!
Ответ на первый вопрос:
function SelectDirectory(const Caption: string; const Root: WideString; out Directory: string): Boolean;
Ответ отправил: VBA (статус: 3-ий класс)
Отправлен: 16.05.2005, 15:43
Вопрос № 20921
Как в в строку записать символ '. В общем мне нужны кавычки в SQL запросе. Использую ADOQuery.SQL.Add
Если как-то с помощью Unicode или ASCII, то напишите плиз, как правильно расписать.
Приложение:
Отправлен: 16.05.2005, 00:31
Вопрос задал: AlexBEz (статус: Посетитель)
Всего ответов отправлено: 7
Отвечает: Хасанов Ренат
Здравствуйте, AlexBEz!
zap := 'Select Code_sport From Sport Where Sname = ''' + str + '''';
Ответ отправил: Хасанов Ренат (статус: 1-ый класс)
Отправлен: 16.05.2005, 07:31
Отвечает: Ballon
Здравствуйте, AlexBEz!
Используй два символа '' сразу.
Например: 'select Code_sport From Sport Where Sname = ''ddd''';
Ответ отправил: Ballon (статус: 2-ой класс)
Отправлен: 16.05.2005, 07:49
Отвечает: Jadd
Здравствуйте, AlexBEz!
А очень просто все. Нужно символ повторить 4 раза подряд, т.е. должно получиться что-то типа '''' , тогда все будет работать. Удачи
Ответ отправил: Jadd (статус: 4-ый класс)
Отправлен: 16.05.2005, 09:46
Отвечает: sir henry
Здравствуйте, AlexBEz!
Одинарная ковычка - номер 39, двойная - 34.
'My string with '+#39+'kavychka'+#39;
:)
Ответ отправил: sir henry (статус: Профессор)
Отправлен: 16.05.2005, 10:07
Отвечает: Bochvarov NikB
Здравствуйте, AlexBEz!
В ответах не увидел: 'Proba.'+QuotedStr('xx');
Ответ отправил: Bochvarov NikB (статус: 3-ий класс)
Отправлен: 16.05.2005, 10:23
Отвечает: VBA
Здравствуйте, AlexBEz!
zap := 'Select Code_sport From Sport Where Sname = ''' + str+'''';
Здесь везде одинарные кавычки.
Ответ отправил: VBA (статус: 3-ий класс)
Отправлен: 16.05.2005, 15:46
Отвечает: Malish
Здравствуйте, AlexBEz!
Это сделать не трудно:
S:="Строка1 "+#39+"Строка1"+#39;
И в этоге получится "Строка1 'Строка1'" то что и хотелось.
Ответ отправил: Malish (статус: Студент)
Отправлен: 16.05.2005, 20:54