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

[Nuclear-Ping]

Warum so kompliziert?

Delphi-Quellcode:

uses SysUtils, Classes, Dialogs;

// ...
var
  sl: TStringList;

begin
  // Instanz von TStringList anlegen ...
  sl := TStringListr.Create;
  try
    // Datei laden
    sl.LoadFromFile ('C:\...\datei.txt');

    // erste Zeile ausgeben
    ShowMessage (sl[0]);

    // erste Zeile löschen (Achtung: alle anderen Zeilen "rutschen" nach oben!)
    sl.Delete (0);
  
    // Datei wieder speichern ...
    sl.SaveToFile ('C:\...\datei.txt');

    // StringList freigeben
    FreeAndNil (sl);
  except
    // ... Fehler beim Laden?
    FreeAndNil (sl);
    raise Exception.Create ('Datei nicht gefunden.');
  end;
end;

[Luckie]

[quote="meik"]hallo,

ich wollte aus einer Textdatei den ersten Zeil löschen, das problem das ich die ganze textdatei lösche :-(

der code sieht so aus:

Delphi-Quellcode:

deletefile('command.txt');

Warum wundert dich das bei dieser Funktion? :wall:

[marabu]

Hallo meik,

falls du nur eine Zeile aus der Textdatei entfernen möchtest und die Textdatei nicht zu groß ist, dann solltest du dir diese Funktion anschauen:

Delphi-Quellcode:

function RemoveLine(fn: TFileName; index: Integer): string;
begin
  with TStringList.Create do
  try
    LoadFromFile(fn);
    if index < 0 then
      index := Count - index;
    Result := Strings[index];
    Delete(index);
    SaveToFile(fn);
  finally
    Free;
  end;
end;

// var line: string;
// line := RemoveLine('test.txt', 0);

Beim Aufruf von RemoveLine('test.txt', 0) wird dir der Inhalt der ersten Zeile zurückgeliefert und diese Zeile aus der Textdatei entfernt.

Grüße vom marabu