Задача : По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… Читать далее »