Программирование на Delphi и не только Транслитерация кириллицы в латиницу | Программирование на Delphi и не только

Delphi FAQ >> Алгоритмы function TranslitRus2Lat(const Str: String): String; const   RArrayL = ‘абвгдеёжзийклмнопрстуфхцчшщьыъэюя’;   RArrayU = ‘АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯ’;   colChar = 33;   arr: array[1..2, 1..ColChar] of String = ((‘a’,’b’,’v’,’g’,’d’,’e’,’yo’,’zh’,’z’,’i’,’y’, ‘k’,’l’,’m’,’n’,’o’,’p’,’r’,’s’,’t’,’u’,’f’, ‘kh’,’ts’,’ch’,’sh’,’shch’,»»,’y’,»»,’e’,’yu’,’ya’), (‘A’,’B’,’V’,’G’,’D’,’E’,’Yo’,’Zh’,’Z’,’I’,’Y’, ‘K’,’L’,’M’,’N’,’O’,’P’,’R’,’S’,’T’,’U’,’F’, ‘Kh’,’Ts’,’Ch’,’Sh’,’Shch’,»»,’Y’,»»,’E’,’Yu’,’Ya’)); var   i: Integer;   LenS: Integer;   p: Integer;   d: Byte; begin   result := »;   LenS …

Программирование на Delphi и не только Как узнать количество цветов у экрана? | Программирование на Delphi и не только

Delphi FAQ >> Система Функция на Delphi для определения текущего количества цветов у экрана: //в битах function NumOfColors: Byte; var   tHDC: hdc; begin   tHDC := GetDC(0);   result := GetDeviceCaps(tHDC, 12) * GetDeviceCaps(tHDC, 14);   ReleaseDC(0, tHDC); end; Чтобы смотреть фильмы онлайн в браузере должна быть установлена поддержка технологии flash.

Программирование на Delphi и не только Как закрыть программу по имени ее файла? | Программирование на Delphi и не только

Delphi FAQ >> Окна Для того, чтобы завершить процесс по имени его исполняемого файла, можно воспользоваться следующей функцией на Delphi: uses TLHelp32; … function CloseByExeName(ExeFilename: String): Integer; var   continueloop: Boolean;   fsnapshothandle: THandle;   fprocessentry32: TProcessEntry32; const   //константа для команды завершения процесса   process_terminate=$0001; begin   Result := 0;   //переводим имя файла в верхний регистр для сравнения   ExeFilename = …

Программирование на Delphi и не только Проверка существования директории (способ 1) | Программирование на Delphi и не только

Delphi FAQ >> Файлы и каталоги function _Directory_Exist (_Dir : String) : Boolean; var   OldMode : Word;   OldDir : String; begin   Result := True;   GetDir(0, OldDir);   OldMode := SetErrorMode(SEM_FAILCRITICALERRORS);   try     try       ChDir(_Dir);     except       on EInOutError do         Result := False;     end;   finally …

Программирование на Delphi и не только Как программно открыть Свойства Экрана в Windows? | Программирование на Delphi и не только

Delphi FAQ >> Операционная система Чтобы отобразить Свойства Экрана в Windows нужно запустить апплет desc.cpl. Сделать это можно при помощи функции модуля ShellApi — ShellExecute, передав ей в качестве одного из параметров имя файла запускаемого апплета. Вот готовая процедура на языке Delphi: uses ShellApi; … //открывает Свойства Экрана procedure OpenDisplayProp; begin   ShellExecute(Application.Handle, nil, ‘desk.cpl’, nil, …

Программирование на Delphi и не только Как узнать номер проигрываемой композиции компакт-диска? | Программирование на Delphi и не только

Delphi FAQ >> Система Обычные музыкальные компакт-диски уже редко используются. Но все же если делать аудио-проигрыватель, то нужно предусмотреть и такой режим проигрывания дисков. Создание простого проигрывателя аудио cd подробно описано в статье Мультимедиа под контролем или Функция mciSendString. Эта функция возвращает номер проигрываемой композиции музыкалього компакт-диска: … uses MMSystem; … // возвращает номер композиции, …

Программирование на Delphi и не только Преобразование арабских чисел в римские | Программирование на Delphi и не только

Delphi FAQ >> Алгоритмы function DecToRoman(Decimal: LongInt): String; const   Romans: array[1..13] of String = (‘I’,’IV’,’V’,’IX’,’X’,’XL’,’L’,’XC’,’C’,’CD’,’D’,’CM’,’M’);   Arabics: Array[1..13] of Integer = ( 1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000); var   i: Integer;   scratch: String; begin   scratch := »;   for i := 13 downto 1 …

Программирование на Delphi и не только Как запустить программу и дождаться ее закрытия? | Программирование на Delphi и не только

Delphi FAQ >> Окна Иногда может потребоваться запустить стороннею программу, дать ей отработать (или дать пользователю в ней поработать) и затем продолжить выполнение своей программы. Такую схему можно наблюдать в апплете Windows «Установка и удаление программ» (мы даже как-то реализовывали функционал этого апплета). Ниже приведена функция на языке программирования Delphi, которая запускает указанный процесс, ждет …

Программирование на Delphi и не только Как посчитать сумму цифр числа? | Программирование на Delphi и не только

Delphi FAQ >> Алгоритмы function SumDig(N: Longint): Byte; begin   result := 0;   while (N >= 1) do   begin     result := result + (N mod 10);     N := N div 10;   end; end; Автомобили Daewoo набирают все большую популярность в странах СНГ. Продажа автомобилей Daewoo, равно как и других автомобилей, это …

Программирование на Delphi и не только Как преобразовать TColor в его HTML-эквивалент? | Программирование на Delphi и не только

Delphi FAQ >> Графика Данная функция на Delphi позволяет получить значение цвета в его html представлении (например #23ААА2): function ColorToHTML(C: TColor): String; begin   Result := IntToHex(C, 6);   Result := ‘#’ + Copy(Result, 5, 2) + Copy(Result, 3, 2) + Copy(Result, 1, 2); end; Часто подсказку в решении практических задач при помощи программирования люди …