Der Codeblock unterhalb von Except gehört eigentlich in eine eigene Procedure:
Delphi-Quellcode:
procedure TDatenmodulVertrieb.SaveMessageToLogfile(MsgText : string);
var
TextFile : TStringList;
begin
TextFile := TStringList.Create;
try
TextFile.Add(MsgText);
TextFileName := GetIniFilePath + '\RepLog_' + FormatDateTime('yyyy-mm-dd hh.nn.ss', Now) + '.txt';
TextFile.SaveToFile(TextFileName);
finally
TextFile.Free;
end;
end;
Man beachte auch das Datumsformat das mit dem Jahr beginnt.
So kann man die Dateien nach Namen sortiert anzeigen und bekommt gleichzeitig eine Sortierung nach Datum.