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

Delphi: вычисление направления одного объекта относительно другого по географическим координатам

Есть задача: даны географические координаты (широта и долгота) двух точек, необходимо вычислить положение одной точки по отношению к другой (т.е. где находится вторая точка: на юге, севере, западе и т.д.) в градусах. Градусы при этом, как известно, считаются от Севера по часовой стрелке.

Математически это считается по вот такой страшной формуле:

Читать далее Delphi: вычисление направления одного объекта относительно другого по географическим координатам

Delphi: перевод русского текста в транслит

Функция перевода русского текста в транслит для Delphi (русский текст латинскими буквами), на базе которой можно много чего еще интересного придумать.
Читать далее Delphi: перевод русского текста в транслит

Delphi: «Открыть с помощью» своей программы, обработка пробелов в имени файла

Сегодня я расскажу, как заставить Вашу программу на Delphi ПРАВИЛЬНО открывать указанный файл при запуске (например, если щелкнуть по какому либо файлу правой кнопкой мыши, выбрать пункт «Открыть с помощью…» и указать Вашу программу). При этом имя открываемого файла передается программе в параметре, и может возникнуть одна проблема — наличие пробелов в имени файла, который будет оценен как разделитель параметров. То есть, при указании имени файла «Новый файл.txt» программе будет передано 2 параметра: «Новый» и «файл.txt». Для правильной обработки этой ситуации нам необходимо «собрать» все параметры в кучу.
Читать далее Delphi: «Открыть с помощью» своей программы, обработка пробелов в имени файла

Компоненты TServerSocket и TClientSocket в Delphi XE

Чтобы вернуть компоненты TServerSocket TClientSocket на свое место в палитре компонентов Delphi XE (откуда они были выкинуты еще в 7 версии), в Delphi XE необходимо проделать следующие действия:

Читать далее Компоненты TServerSocket и TClientSocket в Delphi XE

Delphi: сохранение текста из TMemo в файл UTF-8

Очень долго парился над задачей: есть текст в TMemo в кодировке Unicode с символами на разных языках, надо его сохранить в файл, причем чтобы его кодировка была UTF-8. Облазил пол интернета, а оказалось все НАСТОЛЬКО ПРОСТО, что я просто в шоке.

Код:
memo1.Lines.SaveToFile('file.txt',Tencoding.UTF8);

Проверено в Delphi XE.

Вот такие вот пироги…

Delphi: Запрет на запуск второй копии программы

Нашел в интернете много способов реализации на запрет запуска второго экземпляра приложения. Выбрал самый на мой взгляд минималистский. Я думаю, может многим понадобится — вообще применяется это достаточно часто.

Читать далее Delphi: Запрет на запуск второй копии программы