Inhalt der textdatei löschen

[omata]

Hallo meik,

hier noch ein Beispiel...

Delphi-Quellcode:

procedure ZeileVerarbeiten(Zeile:string);
begin
  ...
end;

procedure ReadAndDelete(Dateiname:string);
var Datei:Textfile;
    Zeile:string;
begin
  try
    assignfile(Datei, Dateiname);
    reset(Datei);
    while not eof(Datei) do begin
      readln(Datei, Zeile);    
      ZeileVerarbeiten(Zeile);
    end;
    rewrite(Datei);
  finally
    closefile(Datei);
  end;
end;

Gruss
Thorsten