Textdateien bestimmte Zeile löschen.

[himitsu]

Delphi-Quellcode:

procedure löscheZeile(const FileName: String; const DeleteLine: Integer);
var
  Lines: TArray<String>;
begin
  Lines := TFile.ReadAllLines(FileName);
  Delete(Lines, DeleteLine);
  TFile.WriteAllLines(FileName, Lines);
end;

Und dann natürlich noch ReadLn und WriteLn, wobei man die eine Zeile überspringt. (nicht speichert)

Zitat von BadenPower:

Diese Beschreibung Deines Vorhabens ist wirr, wie immer.

Klang teilweise so, als wenn in den Tree-Zeilen Dateinamen stehen und man die Dateien löschen will,
drum sagte ich mir "nee, keine Lust das jetzt zu verstehen .... ich geh erstma Mittag essen"

[Der schöne Günther]

Bei ihm steht aber XE6. Nicht XE7

[himitsu]

Werbung

Aber ein Array-Delete hatte ich mir seit vielen Jahren eh schon selber gebaut
und seit 2009 auch als TArray<string>.Delete(Lines, DeleteLine); .