Раздел Delphi

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

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

До переименования:

do

 

После:

posle

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

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

Скриншот:

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

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 := mask;
  file_n := '';

  if FindFirst(folder+'\*.*', faAnyFile, SR) = 0 then
  begin
    repeat
      mc:=myRegExp1.Execute(SR.Name) as MatchCollection;
        if mc.Count > 0 then begin
          file_date := GetFileDate(folder+'\'+SR.Name);
          if file_date > max_date then begin
            max_date:=file_date;
            file_n := folder+'\'+SR.Name;
          end;
        end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;

 result:=file_n;
end;