Скачать: CL | DM;

Пару вопросов про 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 изменял свой списки вместк с этим. Спасибо всем за то что прочитали. И ещё спасибо если ответят

---

← →
Anatoly Podgoretsky ©   (2004-05-09 16:26) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c