Преобразование типов переменных
Таблица преобразования типов переменных. Integer String Extended Integer x:=x; x:=strtoint(x); x:=Round(x); String x:=inttostr(x); x:=x; x:=FloatToStr(x) Extended x:=x; x:=StrToFloat(x); x:=x;
Архивы автора: android developer
Основные события объектов
Событие Описание OnActivate Когда приложение стало активным. OnCanResize Это событие генерируется перед тем, как изменить размер окна. OnClose Генерируется, когда окно закрывается. OnCloseQuery Генерируется до закрытия окна. В этом обработчике происходит запрос на закрытие, OnCreate Генерируется, когда окно создаётся. OnDeactivate Генерируется, когда окно деактивируется. OnDestroy Когда… Читать далее »
Работа с клавиатурой
Вывод сообщения при нажатии клавиши Esc — if getasynckeystate($1b)<>0 then ShowMessage(‘Сообщение’); // Для таймера Изменить раскладку клавиатуры на английскую — LoadKeyboardLayout(‘00000409’, KLF_ACTIVATE); Изменить раскладку клавиатуры на русскую — LoadKeyboardLayout(‘00000419’, KLF_ACTIVATE); Узнать раскладку клавиатуры — GetKeyboardLayoutName(value); if value= ‘00000409’ then ShowMessage(‘Используется английский’); if value= ‘00000419’ then ShowMessage(‘Используется Русский’); // value: array [0.. KL_NAMELENGTH] of char;
Коды клавиш клавиатуры
Таблица кодов клавиш, которыми можно пользоваться при проверке параметра Key в обработчиках событий OnKeyDown и OnKeyUp: Клавиша Дес. число Шест. число Символическое имя Сравнение по функции ord F1 112 $70 VK_F1 F2 113 $71 VK_F2 F3 114 $72 VK_F3 F4 115 $73 VK_F4 F5 116 $74 VK_F5 F6 117 $75… Читать далее »
Закачка и сохранение html странички в файл
[cc lang=»delphi» tab_size=»2″ line_numbers=»false» no_links=»false»] uses URLMon; function DownloadFile(SourceFile, DestFile: string): Boolean; begin try Result:=UrlDownloadToFile(nil,PChar(SourceFile),PChar(DestFile),0,nil)=0; except Result := False; end; end; procedure TForm1.Button1Click(Sender: TObject); begin DownloadFile(‘http://www.google.ru/’, ‘c:\1.txt’); end; end. [/cc]
Открыть сайт в браузере по умолчанию
[cc lang=»delphi» tab_size=»2″ line_numbers=»false» no_links=»false»] ShellExecute(0,’open’,pChar(‘http://vkontakte.ru/club31319900’),NIL,NIL,SW_SHOWNORMAL); // uses ShellAPI [/cc]
Запрет открытия определенного сайта в браузере
Решает задачу через файл hosts . [cc lang=»delphi» tab_size=»2″ line_numbers=»false» no_links=»false»] procedure TForm1.Button1Click(Sender: TObject); // Нажатие кнопки var myFile : TextFile; begin AssignFile(myFile, ‘C:\Windows\System32\drivers\etc\hosts’); // Открываем файл Append(myFile); WriteLn(myFile, ‘127.0.0.1 mail.ru’); // Записываем текст в файл CloseFile(myFile); // Закрываем end; [/cc]
Функция создания Базы Данных (Access)
[cc lang=»delphi» tab_size=»2″ line_numbers=»false» no_links=»false»] // uses comobj; function CreateDatabase(DatabaseName: string): boolean; var DBEngine, Workspace: Variant; const dbLangGeneral = ‘;LANGID=0x0409;CP=1252;COUNTRY=0’; dbVersion30 = 32; begin result := false; try try DBEngine := CreateOleObject(‘DAO.DBEngine.36’); except try {For DAO 3.5} DBEngine := CreateOleObject(‘DAO.DBEngine.35’); except raise; end; end; Workspace := DBEngine.Workspaces[0]; try Workspace.CreateDatabase(DatabaseName, dbLangGeneral, dbVersion30); except on e0: EOleException… Читать далее »
Динамическая загрузка DLL
Загружаем dll динамически — hndDLLHandle:= loadLibrary ( ‘Project1.dll’ ); // var hndDLLHandle: THandle;
Ассемблерный код в Delphi
Начало ассемблерного кода — Asm Конец ассемблерного кода — end; Записать значение переменной «a» в регистр «eax» — mov eax,a // a:integer; Всего 4 32-х битных регистра eax,ebx,ecx,edx. 16-бит – ax,bx,cx,dx. 8 — бит – al,bl,cl,dl. Записать значение регистра «eax» в переменную «i» — mov i,eax // i:integer; Сложить два регистра «eax» и «ebx» и… Читать далее »