Thema: Delphi Ausgabe in Datei

Einzelnen Beitrag anzeigen

Benutzerbild von Michael Habbe
Michael Habbe

Registriert seit: 10. Aug 2005
264 Beiträge
 
Turbo Delphi für Win32
 
#8

Re: Ausgabe in Datei

  Alt 29. Jul 2006, 14:48
Zitat von the_source:
Wie kann ich erreichen, dass der Inhalt der Variable in eine Datei geschrieben wird, so dass ich dann z.B. eine txt-Datei habe in der die Ausgaben aufgelistet sind?
Na, ganz einfach:
Delphi-Quellcode:
procedure LogToFile(s: String);
var
  f: Textfile;
begin
  AssignFile(f, 'c:\log.txt'); // Datei mit Variable verbinden
  if FileExists('c:\log.txt') then // Datei vorhanden?
    Append(f) // Datei zum Schreiben öffnen
  else
    Rewrite(f); // Datei erstellen und öffnen
  WriteLn(f, s); // Übergebenen Text schreiben
  CloseFile(f); // Datei schließen
end;
  Mit Zitat antworten Zitat