Dateien mit Pascal erzeugen

[alcaeus]

Moin Matrix Scripter,

hier mal ein Beispiel mit einer Textdatei:

Delphi-Quellcode:

var
  F: Text;
begin
  Assign(F, SomeFileName);
  {I-}
  ReWrite(F);
  {I+}
  if IOResult = 0 then
  begin
    Writeln(F, 'Dies ist ein Text.');
    Writeln(F, 'Und dies ist eine zweite Zeile');
  end;
  Close(F);
end;

Wichtig: ReWrite loescht den aktuellen Inhalt der Datei. Zum Lesen musst du anstatt ReWrite() einfach Reset() verwenden, wenn du was an die Datei anhaengen willst, gibst Append().

Greetz
alcaeus