Manche Leute wollen wissen, wie man eine LOG-Datei erstellt, eigentlich ganz simple, da es nur eine einfach Textdatei ist, doch für welche die noch nicht ganz wissen wie sie das anstellen sollen, hier mal ein Beispiel:
Delphi-Quellcode:
var f: TextFile; //Globale Variable
procedure LogOpen(Datei: string); //Procedure zum Öffnen der LOG-Datei
begin
AssignFile(f, Datei); //Ordnet der Variable f Namen zu
Rewrite(f); //Erstellt die Datei
WriteLn(f, DateToStr(Date) + ' ' + TimeToStr(Time) + ': Geöffnet'); //Schreibt in die Datei
end;
Procedure LogClose; //Procedur zum beenden der LOG-Datei
begin
WriteLn(f, DateToStr(Date) + ' ' + TimeToStr(Time) + ': Beendet'); //Schreibt in die Datei
CloseFile(f); //Beendet Zuordnung der Variable f
end;
procedure LogAdd(Text:String;Zeilenende:Boolean);
begin
Text := DateToStr(Date) + ' ' + TimeToStr(Time) + ': ' + Text; //Schreibt Text in die LOG-Datei
if Zeilenende then WriteLn(f, Text) else Write(f, Text); //Schreibt in die LOG-Datei mit Zeilenende oder nicht
end;
Hinweis: Der Text wird erst nach LogClose in die Datei geschrieben, zwischendurch nicht.
Außerdem kann man erst in die Datei schreiben wenn man mit LogOpen begonnen hat.
PS: Bitte schreibt bei Problemen oder Verbesserungsvorschlägen oder wenn die Beschriftung falsch ist
[edit=Matze]Code formatiert. Mfg, Matze[/edit]