Пару вопросов про ListBox

← →
iudjen © (2004-05-09 15:59) [0]

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
r:word;
begin
if (AlreadyEnteredWord(listbox1.Count)=false) then exit;

r := MessageDlg(""Вы действительно хотите удалить это слово ",mtConfirmation,[mbYes,mbCancel],0);
if r = mrYes then
begin
for i:=0 to Listbox1.Items.Count - 1 do
if ListBox1.Selected[i] then

begin
ListBox1.Items.Delete(i);
ListBox2.Items := listbox1.Items;
ListBox3.Items := listbox1.Items;

end;
end;
if r = mrCancel then exit;
end;

И когда я хочу удалить первое слово, он мне выдаёт ошибку:
Project Project.exe raised exception class EListError with message "List index out of bounds (1)"
А когда (первое) слово единственное в списке всё идет хорошо
(слово я выделяю)

← →
Mim1 © (2004-05-09 16:06) [1]

for i := Listbox1.Items.Count - 1 downto 0 do

← →
iudjen © (2004-05-09 16:18) [2]

И как сделать чтобы в ListBoxe русские или англииские слова выстраивались по порядку от А Б В .. Ю Я. И чтобы to] какой-то ListBox изменял свой списки вместк с этим. Спасибо всем за то что прочитали. И ещё спасибо если ответят

Естественно свойство Sorted
Как плохо жить без словаря

Пару вопросов про ListBox Найти похожие ветки