Задача : Поcтавить закладку, пробежаться по всей таблице и вернуть курсор на место закладки. Решение : [cc lang=»delphi» tab_size=»2″ line_numbers=»false» no_links=»false»] procedure TForm1.SomeDBOperations; var b: string; begin b := myGrid.DataSource.DataSet.Bookmark; myGrid.DataSource.DataSet.DisableControls; {какие-то операции с Table1} ….. ….. myGrid.DataSource.DataSet.EnableControls; myGrid.DataSource.DataSet.Bookmark := b; end; [/cc]
Переменные содержащие целые числа, не имеющие дробной части. Тип переменной Значение переменной Размер переменной Shortint -128..127 8-бит со знаком Int64 -2^63..2^63-1 64-бит со знаком Smallint -32768..32767 16-бит со знаком Integer -2147483648.. 2147483647 32-бит со знаком Longint -2147483648.. 2147483647 32-бит со знаком Longword 0..4294967295 32-бит без знака Byte 0..255 8-бит без знака Word 0..65535 16-бит без… Читать далее »
Показывать предупреждения компиляции — {$WARNINGS ON} Не показывать предупреждения компиляции — {$Warnings Off} Показывать подсказки компиляции — {$Hints On} Не показывать подсказки компиляции — {$Hints Off} Установить тип приложения консольным — {$AppType CONSOLE} Установить тип приложения графическим — {$AppType GUI} Присоеденить ресурс (форму) — {$R *.DFM}
Вызов окна завершения работы Windows — SendMessage (FindWindow (‘Progman’, ‘Program Manager’), WM_CLOSE, 0, 0); Завершение работы — ExitWindows (EWX_ShutDown,0); Завершение работы (чуть пожестче) — ExitWindows (EWX_FORCE,0); Запустить панель управления — winexec(Pchar(‘rundll32 shell32,Control_RunDLL’),sw_Show); Открыть диалог «Выбор программы …» (‘Open With…’) — winexec(Pchar(‘rundll32 shell32,OpenAs_RunDLL’),sw_Show); Открыть ‘About Window Window’ — winexec(Pchar(‘rundll32 shell32,ShellAboutA Info-Box’),sw_Show); Открыть диалог «Свойства: Экран» (Display… Читать далее »
Получение натурального логарифма числа 2 и запись значения в переменную x: [cc lang=»delphi» tab_size=»2″ line_numbers=»false» no_links=»false»] x:= Ln(2); // var x : Double; [/cc] Получение экспоненты этого значения — операция обратная Ln (получению натурального логарифма): [cc lang=»delphi» tab_size=»2″ line_numbers=»false» no_links=»false»] x:= Exp(x); // var x : Double; [/cc] Модуль числа присвоить переменной x: [cc lang=»delphi»… Читать далее »
Создание клиента для получения курса валют с WSDL Web Service Центробанка http://www.cbr.ru/DailyInfoWebServ/DailyInfo.asmx?wsdl Для работы с сервисом будет использована среда разработки Delphi XE2. Создадим новый проект VLC Forms Application, затем идем в File-New-Others-WebServices- WSDL Importer Вставляем адрес сервиса Выбор протокола, по умолчанию авто Полученный модуль, его нужно добавить USES в главной формы На странице сервиса http://www.cbr.ru/DailyInfoWebServ/DailyInfo.asmx… Читать далее »