FreePascal.ru

Просто как я понимаю в файл лист записывается только имя файла не больше

А собственно как находить одинаковые? Ведь нужно не только имя файла сравнивать но и размер с датой создания.

2 Padre_Mortius
St:TStringList - файл лист я сам должен заранее составить?

А поточнее если можно?

program find;

{$mode objfpc}
{$H+}

uses
SysUtils, Classes;

procedure ViewDir(Dir: string; FileName: string);
var
sr,sr1: TSearchRec;
FileTime,FileSize: Integer;
FileNames: TFileName;

begin
// Выводим список файлов
if FindFirst(IncludeTrailingPathDelimiter(Dir ...

А не через лазарус?

Как подключить SDL к FPC?