Hallo,
ich bin eher noch in den Anfängen der Delphi Programmierung und habe ein Problem:
Ich will in einer Listbox einen Log darstellen.
Gleichzeitig soll jedesmal, wenn der Listbox ein Eintrag hinzugefügt wurde, der Eintrag auch in ein Logfile geschrieben werden. Um mir da unnötig Zeilen zu ersparen, wollte ich das so machen:
Delphi-Quellcode:
function WriteLog(LogString: String): Integer;
var
f: TextFile;
begin
{$IOChecks OFF}
AssignFile(f, ExtractFilePath(ParamStr(0))+LOGFILE);
if FileExists(ExtractFilePath(ParamStr(0))+LOGFILE) then
Append(f)
else
Rewrite(f);
Writeln(f, LogString);
CloseFile(f);
result := GetLastError();
{$IOCHECKS ON}
end;
procedure LBWrite(LogText: String);
begin
Form1.ListBox1.Items.Add(DateToStr(Now)+' '+TimeToStr(Now)+': '+LogText);
Form1.ListBox1.TopIndex := Form1.ListBox1.Items.Count-1;
WriteLog(DateToStr(Now)+' '+TimeToStr(Now)+': '+LogText);
end;
Die Procedure möchte ich dann mit
LBWrite('Das ist der Text, der reingeschrieben wird');
aufrufen.
Das geht aber irgendwie nicht. Weiß jemand Rat? Vielen Dank schonmal!