Hallo...
ich hab noch eine Bitte.
Kann mir jemand diesen Quelltext kommentieren.
Ich würde gerne verstehen was da genau passiert.
Zum Beispiel würde ich gerne alle doppelten Zeilen aus der Textdatei entfernen.
Verwende dafür folgenden Source:
Delphi-Quellcode:
function doppeltweg(datei:string):longword;
var m1,m2:longword;
sl:TStringlist;
begin
sl:=TStringlist.Create;
sl.loadfromfile(datei);
m1:=sl.count;
sl.sorted:=true;
sl.loadfromfile(datei);
m2:=sl.count;
result:=m1-m2;
sl.savetofile(datei);
sl.free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
doppeltweg('c:\test.txt');
end;
Nun weiß ich nicht welchen Dateinamen ich dem Code unten eingeben muss.
Unten steht ja
WriteToLog('c:\logs\log_', Edit1.Text, LastLog, ListBox1.Items);
und um die doppelten Zeilen wegzubekommen muss ich ja folgendes machen:
doppeltweg('c:\test.txt');
Delphi-Quellcode:
uses
Math;
const
myDateFormat = 'yyyy-mm-dd';
myTimeFormat = 'HH:mm';
function LogFileName(const ABaseName: string; ADateTime: TDateTime): string;
begin
Result := ABaseName + '_' + FormatDateTime(myDateFormat, ADateTime) + '.txt';
end;
procedure WriteToLog(const aLogBase, aLogText: string; aLastLog: TDateTime;
aStrings: TStrings = NIL);
var
LogName: string;
Mode: Cardinal;
LogFile: TFileStream;
LogLine: string;
LogTime: TDateTime;
begin
LogTime := now;
LogLine := FormatDateTime(Format('%s %s', [myDateFormat, myTimeFormat]), LogTime) +
' ' + aLogText;
LogName := LogFileName(aLogBase, LogTime);
ForceDirectories(ExtractFilePath(LogName));
Mode := IfThen(FileExists(LogName), fmOpenWrite, fmCreate);
LogFile := TFileStream.Create(LogName, Mode);
try
LogFile.Position := LogFile.Size;
LogFile.Write(LogLine[1], Length(LogLine));
LogFile.Write(sLineBreak, 2);
finally
LogFile.Free;
end;
if Assigned(aStrings) then
begin
if Trunc(LogTime) > Trunc(aLastLog) then
begin
aStrings.Clear;
end;
aStrings.Add(LogLine);
end;
aLastLog := LogTime;
end;
// Demo Aufruf
procedure TDemoForm.btn_testClick(Sender: TObject);
var
LastLog : TDateTime;
begin
WriteToLog('c:\logs\log_', Edit1.Text, LastLog, ListBox1.Items);
end;