Рубрика: Delphi / Lazarus

Delphi примеры

Вывод текста из консольной программы в CMD терминал

VVSite

Функция на Free Pascal для корректного вывода русского текста в CMD терминал. function encUTF8(text: string): string; var Bytes: TBytes; RawStr: RawByteString; Encoding: TEncoding; begin RawStr := RawByteString(text); SetLength(Bytes, Length(RawStr)); Move(RawStr[1], Bytes[0], Length(RawStr)); Encoding := TEncoding.UTF8; Result := Encoding.GetString(Bytes); end; Использование:… ЧитатьВывод текста из консольной программы в CMD терминал

Утилита для переименования файлов

VVSite

Эта маленькая утилита переименует все файлы и папки, названные на кирилице в латинский транслит. Подпапки не переименовываются. Для использования скачайте файл trans.zip распакуйте в папку, где нужно переименовать файлы и запустите. Результаты работы программы: До переименования:   После:

Игра «Поймай паука»

VVSite

Это простая программа на Delphi 7 была сделана в качестве помощи студенту для контрольной. Основная функция программы — показать как можно обращаться с массивами объектов. В архиве исходники и, собственно, сама программа. Скриншот:

Определить последний (по дате) измененный файл в папке

VVSite

using VBScript_RegExp_55_TLB; function get_file(folder: string; mask: string):string; var max_date : TdateTime; file_date : TDateTime; myRegExp1 : TRegExp; mc: MatchCollection; file_n: string; i: integer; SR : TSearchRec; begin max_date := StrToDateTime(‘01.01.1970 00:00:00’); myRegExp1 :=TRegExp.Create(self); myRegExp1.IgnoreCase := true; myRegExp1.Global := false; myRegExp1.Pattern… ЧитатьОпределить последний (по дате) измененный файл в папке