Eliminarea rândurilor listbox

Sluhay orice mai mult ca acest
Procedura TForm1.Button1Click (Expeditor: TObject);
începe
listbox1.Items.Delete (0); // 0 rând (primul tobish)
se încheie;

Mesaj de Vasili Jakunin

Mesaj de Ilya Kudryavtsev
Procedura TForm1.Button1Click (Expeditor: TObject);
începe
listbox1.DeleteSelected;
se încheie;

Ei bine, poate că în unele versiuni ale Delphi și acest lucru va avea loc, dar nu am făcut-o
trece, Delphi 5. Faptul că am avut de a șterge un anumit

Mesaj de Vasili Jakunin
o linie de listbox-a. Am văzut o dată această procedură, dar

Mesaj de Vasili Jakunin
var i: Integer;
începe
pentru i: = 0 până la ListBox.Items.Count -1 do
[. ]
ListBox.Items.Delete (i);
se încheie;
Asta e ceva de genul asta. dar nu pot să amintesc, și am
șterge o linie specială.
Cu stimă, Vasile

Mesaj de Vasili Jakunin
începe
pentru i: = 0 până la ListBox.Items.Count -1 do
[. ]
ListBox.Items.Delete (i);
se încheie;
Asta e ceva de genul asta. dar nu pot să amintesc, și am
șterge o linie specială.

Mesaj de Vasili Jakunin
șterge o linie specială.

Vă mulțumesc foarte mult, acest lucru este exact ceea ce ai nevoie!

Andrew V. Fionik

Ei bine, poate că în unele versiuni ale Delphi și acest lucru va avea loc, dar nu am făcut-o
trece, Delphi 5. Faptul că am avut de a șterge un anumit rând. A
nu doar o linie de la un ListBox-o. Am văzut o dată această procedură, dar
var i: Integer;
începe
pentru i: = 0 până la ListBox.Items.Count -1 do
[. ]
ListBox.Items.Delete (i);
se încheie;
Asta e ceva de genul asta. dar nu pot să amintesc, și am
șterge o linie specială.

Necesar pentru a elimina de la sfârșitul listei. În caz contrar, naudalyaesh greșit.

pentru I: = ListBox.Items.Count-1 downto 0 do
începe
dacă ListBox.Selected [I] apoi ListBox.Items.Delete (I);
se încheie;