Einzelnen Beitrag anzeigen

aaaaaaaaaa_10
(Gast)

n/a Beiträge
 
#3

Re: "Deklaration suchen" , aber procedure existier

  Alt 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;
  Mit Zitat antworten Zitat