Re: löschen in txt
Super funktioniert genau so wie ich mir das vorgestellt habe Danke
Super tips die ihr (Du) hier gibst. :zwinker: :zwinker: :thumb: So hab ich es jetzt gelöst
Delphi-Quellcode:
Tausend Dank
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; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:53 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