Zeilen löschen

[bitsetter]

Hi,

so in etwa war das gemeint:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  loop : integer;
  sl: TStringList;
  Pfad : String;
begin
  Pfad := 'C:\1.txt';
  if FileExists(Pfad) then
  begin
    sl:= TStringList.Create;
    try
      sl.LoadFromFile(Pfad);
      for loop := Pred(sl.Count) downto 0 do
      if Pos(Label1.Caption, sl.Strings[loop])= 1 then
        sl.Delete(loop);
      sl.SaveToFile(Pfad);
    finally
      sl.Free;
    end;
  end;
end;