löschen in txt

[SaFu]

Super funktioniert genau so wie ich mir das vorgestellt habe Danke

Super tips die ihr (Du) hier gibst.

So hab ich es jetzt gelöst

Delphi-Quellcode:

procedure TForm7.Entfernen1Click(Sender: TObject);
Var eintrege: Integer;
begin
  with ComboBox3 do
  begin
    eintrege:= ItemIndex;
    Combobox3.Items.Delete(ItemIndex);
    if eintrege < Items.Count
      then ItemIndex:= eintrege
      else ItemIndex:= Pred(eintrege);
    Invalidate;
  end;
   leherl:= ExtractFilePath(ParamStr(0)) +'\Lehrer Liste\'+'liste.txt';
   ComboBox3.Items.SaveToFile(leherl);
   Form8.ListBox1.Clear;
  begin
   leherl:= ExtractFilePath(ParamStr(0)) +'\Lehrer Liste\'+'liste.txt';
   Form8.ListBox1.Items.LoadFromFile(leherl);
end;
end;

Tausend Dank