(Gast)
n/a Beiträge
|
Re: "Deklaration suchen" , aber procedure existier
21. Jul 2009, 07:30
logFile.AddLine()
aus (angeblich)
Delphi-Quellcode:
procedure TLogFile.AddLine(Line: string);
var
F: TextFile;
Zeile: String;
begin
FileMode := fmOpenReadWrite;
AssignFile(F, FFileName);
try
Append(F);
except
Rewrite(F);
end;
Zeile := FormatDateTime('mm/dd/yy tt.zzz - ', Now)+Line; //Vorher c.zzz
WriteLn(F, Zeile);
CloseFile(F);
end;
|
|
Zitat
|