Bestimmte Zeile aus einer Textdatei löschen

[Daniel B]

Hallo,

Delphi-Quellcode:

procedure LoescheZeileAusDatei(sDatei: String; iZeile: Integer);
var
  sl: TStringList;
begin
    sl := TStringList.Create;
  try
    sl.LoadFromFile(sDatei);
    sl.Delete(iZeile -1);
    sl.SaveToFile(sDatei);
  finally
    sl.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    LoescheZeileAusDatei(OpenDialog1.FileName, 2); 
    //Hier also die Zeile angeben
    //In dem Fall wäre es die zweite Zeile
  end; //if
end;

Den OpenDialog-Teil kann man natürlich auch weglassen.

Grüsse, Daniel

[edit=Daniel B]try..finally..end ergänzt. MfG Daniel B.[/edit]