["Hatchet" Harry]

Такая задачка:
Найти все текстовые файлы в папке и занести их имена построчно в StringList, а так же попутно найти самый свежий(по дате создания) файл в этой папке и залить его название в ключ реестра

У меня вышло нечто вроде такого:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

... function GetFreshFile(FileNames: TStringList): String; {Из этой функции надо сотворить такую, чтобы брала построчно из TStringList имена файлов, сравнивала какой файл самый свежий по дате создания и выдавала его имя как результат} try  for i=0 to FileNames.Count-1 do begin   FileAge(FileNames.Strings[i]) //Получаем дату создания каждого файла   ... //Как дальше сравнивать даты и выделить из них самую свежую? finally  FileNames.Free //Уничтожаем TStringList end; end;   procedure TForm.ButtonClick(Sender: TObject); var  Files : TStringList;  reg : TRegistry; begin  Files := TStringList.Create;  try   If FindFirst('C:\Proga\*.txt', faAnyFile, SearchRec)=0 then //Ищем текстовые файлы в папке "C:\Proga"    repeat     Files.Add(SearchRec.Name); //Добавляем в StringList имя каждого найденного файла как новую строку    until FindNext(SearchRec) <> 0;   end;     reg := TRegistry.Create;     reg.RootKey := HKEY_LOCAL_MACHINE;     reg.OpenKey('Software\Proga',true);     reg.WriteString('LastF', GetFreshFile(Files)); //Сливаем имя последнего файла в ключ реестра HKEY_LOCAL_MACHINE\Software\Proga.LastF   finally    reg.Free; //Уничтожаем TRegistry  end;   FindClose(SearchRec); //Уничтожаем поиск  end;

[Страдалецъ]

И чего-же вы от нас ждете?

[Nyctos Kasignete]

"Hatchet" Harry, попробуйте функцию CompareDateTime из стандартного модуля DateUtils.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

function GetFreshFile(const FileNames: TStringList): String; var    i, FNamesCnt: Integer;    CurrFDate, LatestFDate: TDateTime; begin    FNamesCnt := FileNames.Count - 1;    Result := FileNames[0];    LatestFDate := FileDateToDateTime(FileAge(Result));    for i := 1 to FNamesCnt do    begin       CurrFDate := FileDateToDateTime(FileAge(FileNames.Strings[i]));       if CompareDateTime(CurrFDate, LatestFDate) = GreaterThanValue then       begin          Result := FileNames.Strings[i];          LatestFDate := CurrFDate;       end;    end; end; end;

["Hatchet" Harry]

Сообщение от Nyctos Kasignete

"Hatchet" Harry, попробуйте функцию CompareDateTime из стандартного модуля DateUtils.

Спасибо! Я с такой функцией не работал еще, но вроде в общих чертах понял теперь.
Компилятор почему-то не переваривает строку

Код:

1	if CompareDateTime(CurrFDate, LatestFDate) = GreaterThanValue then

[Error] MainModule.pas(155): Undeclared identifier: 'GreaterThanValue'
[Warning] MainModule.pas(155): Comparing signed and unsigned types - widened both operands
(модуль DateUtils в Uses я подключил)

[Страдалецъ]

Сообщение от "Hatchet" Harry

Спасибо! Я с такой функцией не работал еще, но вроде в общих чертах понял теперь.
Компилятор почему-то не переваривает строку

Код:

[Error] MainModule.pas(155): Undeclared identifier: 'GreaterThanValue'
[Warning] MainModule.pas(155): Comparing signed and unsigned types - widened both operands
(модуль DateUtils в Uses я подключил)

Нафига вообще этот цирк с функциями?
У вас в коде есть место где все это можно делать сразу:

Код:

1 2 3

repeat     Files.Add(SearchRec.Name);    until FindNext(SearchRec) <> 0;

Структура SearchRec имеет кроме имени файла еще и время изменения, вот и проводите проверку здесь.

[Nyctos Kasignete]

"Hatchet" Harry, по поводу

Сообщение от компилятор

Undeclared identifier: 'GreaterThanValue'

Чтобы компилятор не ругался, добавьте в uses модуль Types, ибо тип TValueRelationship объявлен именно там.

А лучше последуйте совету, который дал Страдалецъ. Я что-то совсем забыла про структуру SearchRec. =)
А именно, SearchRec.Time содержит то же самое, что вы получаете с помощью FileAge. Ну а дальше можно действовать той же самой функцией FileDateToDateTime, как я писала раньше.

Сообщение от Страдалецъ

Нафига вообще этот цирк с функциями?

А может, человеку конкретно такая функция и нужна для последующего неоднократного вызова из других процедур? Хотя я не могу этого знать! =)

["Hatchet" Harry]

Nyctos Kasignete, благодарю за помощь, подключил Types и еще поправил в своём коде пару грубых ошибок(в Result и CurrDateF сувал имя файла а не полный путь к нему) и всё работает как часики!
Страдалецъ и вам спасибо за полезную инфу касательно SearchRec.Time (я упустил в хелпе что такая полезная фенька есть у этой стандартной функции).