Рубрика: Delphi

Delphi примеры

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

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… ЧитатьОпределить последний (по дате) измененный файл в папке