![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | 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('там есть галочка'); |