Архив метки: Delphi XE

Закладка в Dataset

Автор: | 01.03.2013

Задача : По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]

Типы переменных

Автор: | 17.02.2013

Переменные содержащие целые числа, не имеющие дробной части. Тип переменной Значение переменной Размер переменной 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-бит без… Читать далее »

Директивы компилятора

Автор: | 16.02.2013

Показывать предупреждения компиляции - {$WARNINGS ON} Не показывать предупреждения компиляции - {$Warnings Off} Показывать подсказки компиляции - {$Hints On} Не показывать подсказки компиляции - {$Hints Off} Установить тип приложения консольным - {$AppType CONSOLE} Установить тип приложения графическим - {$AppType GUI} Присоеденить ресурс (форму) - {$R *.DFM}

Работа c Windows (API функции)

Автор: | 16.02.2013

Вызов окна завершения работы 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… Читать далее »

Математические функции (модуль Math)

Автор: | 16.02.2013

Получение натурального логарифма числа 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 Центробанка

Автор: | 27.08.2012

Создание клиента для получения курса валют с 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… Читать далее »