Übergabe Datenbankschnittstelle (Transaction, etc.)

[sx2008]

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.