Vyhledáváním byl nalezen 1 výsledek

Zpět na pokročilé hledání

Delphi

x:=0;
if MessageDlg('Delete selected ?',mtWarning,[mbYes,mbNo],0)=mrYes then
repeat
if ListBox1.Selected[x] then ListBox1.Items.Delete(x)
else x:=x+1;
until x=ListBox1.Items.Count;
end;
od xazp
9. 6. 2005 22:12
 
Sekce: Programování
Téma: [Delphi] Problém s procedúrou v ListBox
Odpovědi: 8
Zobrazení: 1604

Zpět na pokročilé hledání