Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Library: Object-Pascal / Delphi-Language (https://www.delphipraxis.net/35-library-object-pascal-delphi-language/)
-   -   Delphi Bestimmte Zeile aus einer Textdatei löschen (https://www.delphipraxis.net/3476-bestimmte-zeile-aus-einer-textdatei-loeschen.html)

Daniel B 14. Mär 2003 22:53


Bestimmte Zeile aus einer Textdatei löschen
 
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 :hi:

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


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:21 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz