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]