Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.12.09;
Скачать: [xml.tar.bz2];

Вниз

Random & CheckBox   Найти похожие ветки 

 
Первокласник Вася   (2007-11-15 10:46) [0]

Всем привет!

Мастера помогите решить задачку.

Задача:

На форме есть ComboBox, заполненый значениеми: раз, два, три, четыре, пять.
Как это  все можно перемешать randomom? Получается только выбирать индекс, но
добиться например, три, пять, раз, четыре, два - неполучается :(

Помогите пожалуйста!


 
@!!ex ©   (2007-11-15 10:52) [1]

[TELEPATOR=ON]
TCheckListBox тебе в помощь.
[TELEPATOR=OFF]


 
Первокласник Вася   (2007-11-15 10:54) [2]

а можно пример. не совсем-то понял ответ.
подскажи пожалуйста


 
Первокласник Вася   (2007-11-15 11:03) [3]

ну, примитивный хотябы пример можно?


 
Vice____   (2007-11-15 11:05) [4]


> Первокласник Вася   (15.11.07 11:03) [3]
>
> ну, примитивный хотя бы пример можно?

пока ты ждешь свой примитивный пример уже и сам додумался б если б подумал


 
Первокласник Вася   (2007-11-15 11:12) [5]

Ребята я с Вами согалсен на все 100%
Проблема в том что дома инет отсутствует, а на работе delphi нет.
Обучаюсь и думаю только дома по вечерам.

Помогите пожалуйста.


 
Anatoly Podgoretsky ©   (2007-11-15 11:12) [6]

Методы Move или Exchange


 
Первокласник Вася   (2007-11-15 11:19) [7]

Спасибо я попробую. Но все же, хотелось бы увидеть пример, чтобы можно было бы поэкспериментировать с разными вещами и разными способами.


 
Первокласник Вася   (2007-11-15 11:20) [8]

Спасибо, я попробую.
Но все же, хотелось бы увидеть наглядный пример, чтобы можно было поэкспериментировать с разными вещами и разными способами.


 
Johnmen ©   (2007-11-15 11:21) [9]


> Обучаюсь и думаю только дома по вечерам.

И весь день вот так бездумным и слоняешься?


 
Первокласник Вася   (2007-11-15 11:28) [10]

Нет!!! Я к сожалению в настоящее время прогрмаммистом не работаю. Так, планированием и всякой ерундой занимаюсь, но каждый день чета делаю сущесвенное, постоянно крутятся мысли о программировании и каждый день спешу после работы домой, чтобы поработать на delphi. Я никогда не бездельничаю, ребята.


 
Johnmen ©   (2007-11-15 11:30) [11]


> Я никогда не бездельничаю, ребята.

Это вселяет надежду.


 
Первокласник Вася   (2007-11-15 11:33) [12]

Помогите мне пожалуйста!
Я хочу решить эту задачу. Я сам её себе поставил и хочу решить, но не знаю как правильно подойти к ее решению.


 
Первокласник Вася   (2007-11-15 11:33) [13]

Помогите мне пожалуйста!
Я хочу решить эту задачу. Я сам её себе поставил и хочу решить, но не знаю как правильно подойти к ее решению.


 
Первокласник Вася   (2007-11-15 11:33) [14]

Удалено модератором


 
@!!ex ©   (2007-11-15 11:39) [15]

Да ты задачу доходчиво объясни!
Научись сначало вопросы задавать корректно.


 
Юрий Зотов ©   (2007-11-15 11:53) [16]

> Первокласник Вася   (15.11.07 10:46)

1. Строим массив А, состоящий из случайных неповторяющихся целых чисел в пределах от нуля до ComboBox.Items.Count - 1.

2. Далее все просто:
SL := TStringList.Create;
try
 for i := Low(A) to High(A) do
   SL.Add(ComboBox.Items[A[i]])
 ComboBox.Items.Assign(SL)
finally
 SL.Free
end;


 
Первокласник Вася   (2007-11-15 11:53) [17]

Извините, ребята!

Задача такая: На форме расположен компонент CheckBox, он заполнен значениями в свойстве items - "один", "два", "три", "четыре", "пять". Хотелось бы перемешать это и чтобы получилось - "два", "пять", "один", "четыре" "три".
Пытался с помощью random, но добился лишь случайного выбора индекса.
Но необходимо, чтобы весь этот список перемешался


 
Vice____   (2007-11-15 11:57) [18]

начни с того что нужно сделать чтобы получить результат:
например есть
10 20 30 40 50
ты хочешь их перемешать
берем в руки Random я так понял с вопроса теперь, припустим
начала цикла
rand1:=3 rand2:=1 тогда
chiclo:=comboBox1.Items[rand1]; запоминает первое значение
comboBox1.Items[rand1]:=comboBox1.Items[rand2]; перемещаем одно значение
comboBox1.Items[rand2];=chiclo; перемещаем другое значение в результате
конец цикла
имеем
30 20 10 40 50
все ето запихни в цыкл и интерпретируй нужное количество раз
прошу очень не бить пытался обяснить как мог)


 
Jeer ©   (2007-11-15 11:58) [19]

Нет у стандартногоTCheckBox свойства Items


 
Anatoly Podgoretsky ©   (2007-11-15 12:01) [20]

Для TStrings я указал его родные методы, нет нужды в дополнительных средствах, когда оно само может или перемещать или обмениваться значениями, по вкусу.


 
Vice____   (2007-11-15 12:02) [21]


> Jeer ©   (15.11.07 11:58) [19]
>
> Нет у стандартногоTCheckBox свойства Items

есть
и еще он может быть заполнен
> значениями в свойстве items - "один", "два", "три",
>  "четыре", "пять".
а лучше сначала посмтреть [0]


 
Первокласник Вася   (2007-11-15 12:05) [22]

Ребята!!!!

Спасибо что помогли понять что к чему!!!!

Доходит немного! :))

Спасибо вам ещё раз!!!
Настоящие мастера!!!


 
Jeer ©   (2007-11-15 12:27) [23]


> Vice____   (15.11.07 12:02) [21]



> есть


Насчет TCheckBox это Вы Borland-у расскажите.

А Вам советую посмотреть на [17]


 
Vice____   (2007-11-15 12:34) [24]


> Jeer ©   (15.11.07 12:27) [23]

а у меня есть
тут Delphi нужна выше 5 версии


 
Jeer ©   (2007-11-15 12:47) [25]


> Vice____   (15.11.07 12:34) [24]


Поздравляю, Вы обладатель особой версии Delphi.

Вы решили поиграть в пинг-понг ?
Вы что не понимаете разницу между постановкой задачи в [0] и ее уточнением в [17], да еще и с извинениями от автора ? :))

Вы не понимаете разницу между TComboBox и TCheckBox ?


 
Vice____   (2007-11-15 12:53) [26]


> Jeer ©   (15.11.07 12:47) [25]
>
>
> > Vice____   (15.11.07 12:34) [24]
>
>
> Поздравляю, Вы обладатель особой версии Delphi.
>
> Вы решили поиграть в пинг-понг ?
> Вы что не понимаете разницу между постановкой задачи в [0]
> и ее уточнением в [17], да еще и с извинениями от автора
> ? :))
>
> Вы не понимаете разницу между TComboBox и TCheckBox ?


и все таки интуиция мне подсказывает что у автора че-то типа T.... где и есть свойство Items, в противном случае у него не вышла б такая постановка вопроса)
и вообще была попытка описать как примерно произойдет выполнение задачи и без разницы есть там Items или нет, думаю автор ето и хотел услышать
ну а если чего можна у него спросить


 
Jeer ©   (2007-11-15 13:10) [27]

Вы только что уверяли, что у Вас в TCheckBox есть Items.
Откуда я знаю, может быть у Вас с ним одна и та же супер-версия Delphi:))

Вопрос, на самом-то деле, все в том же - учится правильно задавать вопросы.


 
Vice____   (2007-11-15 13:12) [28]


> Jeer ©   (15.11.07 13:10) [27]
>
> Вы только что уверяли, что у Вас в TCheckBox есть Items.
>

а правда что если что-то написано на заборе оно там и есть)


 
Skyle ©   (2007-11-15 13:17) [29]


> Vice____   (15.11.07 13:12) [28]
> > Jeer ©   (15.11.07 13:10) [27]
> > Вы только что уверяли, что у Вас в TCheckBox есть Items.
> а правда что если что-то написано на заборе оно там и есть)

Это надо спросить у тех, кто пишет. В данном случае у Вас.


 
имя   (2007-11-15 13:58) [30]

Удалено модератором


 
имя   (2007-11-15 13:58) [31]

Удалено модератором


 
app ©   (2007-11-15 14:00) [32]

> Vice____  (15.11.2007 13:12:28)  [28]

> а правда что если что-то написано на заборе оно там и есть)

Ну иди и пиши на заборах, почему ты решил, что delphimaster это забор.


 
Vice____   (2007-11-15 14:10) [33]


> app ©   (15.11.07 14:00) [32]
>
> > Vice____  (15.11.2007 13:12:28)  [28]
>
> > а правда что если что-то написано на заборе оно там и
> есть)
>
> Ну иди и пиши на заборах, почему ты решил, что delphimaster
> это забор.


ето за меня решили что delphimaster это забор


> и все таки интуиция мне подсказывает что у автора че-то
> типа T.... где и есть свойство Items, в противном случае
> у него не вышла б такая постановка вопроса)

> и вообще была попытка описать как примерно произойдет выполнение
> задачи и без разницы есть там Items или нет, думаю автор
> ето и хотел услышать
> ну а если чего можна у него спросить



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

Форум: "Начинающим";
Текущий архив: 2007.12.09;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.52 MB
Время: 0.05 c
2-1194953089
Ega23
2007-11-13 14:24
2007.12.09
Как узнать, в какой bpl содержаться классы?


2-1195023978
andreoman
2007-11-14 10:06
2007.12.09
по каким портам происходит ping


15-1194183933
xayam
2007-11-04 16:45
2007.12.09
приглашаю для тестирования поисковика


2-1195204511
Pro100
2007-11-16 12:15
2007.12.09
Дробная часть


15-1194461905
vasIZmax
2007-11-07 21:58
2007.12.09
Взялись бы ли вы за проект, который просто обречен на провал&#133





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский