18 кнопок

[Xcopy]

Есть 18 кнопок, с разными значениями в caption, нужно перемешать значения caption в кнопках. Как это сделать?

Заранее спс

[grom333]

Я не понял что Вы написали, но значение caption в button
изменяется таким образом

button1.caption:='название'

Как они должны изменяться? При нажатии на какую-то кнопку? Если да то пропишите для всех батонов аналогичные коды.

[mihali4]

нужно перемешать значения caption в кнопках

button1.caption:=button2.caption;

И так далее. Можно цикл организовать.

Или имеется в виду "abcd"->"bcda"->"cdab"->"dabc"->"abcd" ?
Членораздельно можно свою мысль выразить ?
"Перемешать" или "перемещать" ?

[Xcopy]

Да нет же, у меня уже даны 18 кнопок на форме, и у каждой из них в каптионе что-либо написано. Мне нужно что бы значения каптион во всех кнопках перемешались (случайным образом). Тоже самое, что в массиве элементов элементы случайным образом перемешать.

[Xcopy]

button1.caption:=button2.caption;

И так далее. Можно цикл организовать.

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

Или имеется в виду "abcd"->"bcda"->"cdab"->"dabc"->"abcd" ?

Не понял.

[artemavd]

А что если создать массив из caption-ов кнопок?

[Xcopy]

Способов есть много. Мне главное узнать, алгоритм перемешивания элементов

[russian-stalker]

В цикле берешь кнопку с номером i, рандомно генерируешь число x с значением от 1 до 18 и меняешь местами кнопку с номером i и кнопку с номером x.

[Xcopy]

В цикле берешь кнопку с номером i, рандомно генерируешь число x с значением от 1 до 18 и меняешь местами кнопку с номером i и кнопку с номером x.

Сейчас попробую.


Все, сделал. Может кому-нибудь будет интересно:

for i:=1 to 18 do
  begin
  r2:=random(17)+1;
  buf:=Tbutton(FindComponent('button' + IntToStr(i))).Caption;
  Tbutton(FindComponent('button' + IntToStr(i))).Caption:=Tbutton(FindComponent('button' + IntToStr(r2))).Caption;
  Tbutton(FindComponent('button' + IntToStr(r2))).Caption:=buf;
  end;

[Alt]

в каптионе

В кэпшене))

Все, сделал. Может кому-нибудь будет интересно:

omgwtf, судя по коду ты каждую кнопку на форме размещал)) запихни их в массив чтоли))