Delphi .txt in checklistbox anzeigen & angehakte zeilen löschen

Thema durchsuchen

Ansicht

Themen-Optionen

.txt in checklistbox anzeigen & angehakte zeilen löschen

Ein Thema von violinplayer · begonnen am 14. Mai 2007 · letzter Beitrag vom 13. Jan 2009

Antwort

violinplayer

Registriert seit: 14. Mai 2007
9 Beiträge

Re: .txt in checklistbox anzeigen & angehakte zeilen lös

14. Mai 2007, 11:34

JETZT GEHT ES !

procedure TForm1.Button2Click(Sender: TObject);
var I: Integer;
begin
I := 0; //inistialisieren
while CheckListBox1.Items.Count > I do //Damit .Count immer wieder aktualisiert wird
if CheckListBox1.Checked[I] then
CheckListBox1.Items.Delete(I) else Inc(I); //weil der Index "nachruchtscht"

CheckListBox1.Items.SaveToFile(myPcharcalljob);
switchcontent();

end;

DANKE !