![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() вопрос как расположить в лист боксе итемы в случайном порядке к примеру при клике на кнопку
|
#2
|
||||
|
||||
![]() Возможно не много не правильно, написал что первое в голову пришло, но вообщем как-то так:
Код:
procedure TForm1.Button1Click(Sender: TObject); var i: integer; s: string; k: integer; begin randomize; for i:=0 to l.Count-1 do begin k:=random(l.Count); if(k <> i) then begin s:=l.Items.Strings[k]; l.Items.Strings[k] := l.Items.Strings[i]; l.Items.Strings[i] := s; end; end; end; l - это сам TListBox, в котором уже записано все что надо ![]() ЗЫ если что не понятно, напиши - объясню... Помогаю за Спасибо ![]() |
#3
|
||||
|
||||
![]() хм вроде работает, спасибо =)
|
#4
|
||||
|
||||
![]() еще хотел узнать можно ли сохранить в памяти программы чек бокс
тоесть есть там галочка или нет Последний раз редактировалось ALexandr555, 05.11.2010 в 15:47. |
#5
|
|||
|
|||
![]() Цитата:
К примеру - вывод сообщения: if checkbox1.checked=true then showmessage('там есть галочка'); |