Delphi. Посимвольное раскидывание string'а по кнопкам.

[Риндера]

Итак. Раз уж я студентка... Хотя прогу и не для зачета пишу, а для друга... Но в общем к делу.

Возникла задачка:
Раскидать определенную строку по Caption'ам кнопок в случайном порядке. Что-то я тут написала, и вроде бы правильно должно работать. Но, как водится, результат выходит совсем не такой, каким его ожидаешь)))
Вот:

var
  CurWord: string;
  LoW, c: integer;
begin
CurWord:=AdoTable1.Fields[1].Value;
LoW:=length(CurWord);

for i:=1 to LoW do
begin
  {куча операторов со свойствами создаваемых кнопок}
  c:=random(LoW)+2-i;
  b.Caption:=CurWord[c];
  Delete(CurWord, c, 1);
end;

Предполагается, что:
1) в "с" выпадает случайная позиция символа в строке CurWord.
По скольку рандом включает 0, то прибавляется 1, дабы не было ошибков с индексами в строке.
Также по скольку длина CurWord по идее уменьшается после каждого п. 3, то я вычитаю i из "рандома".
2) b.Caption присваивается этот символ;
3) из CurWord удаляется этот символ. Тут, на сколько я понимаю, CurWord должна стать короче.

В результате работы получаются несколько кнопок с пустыми названиями, иногда со странными символами, и т.п. лаги. Где может быть ошибка?

[Utkin]

А зачем уменьшать строку.
Пусть есть определенная строка. Представьте что это массив символов. Вы просто должны читать элемент массива со случайным индексом.

{куча операторов со свойствами создаваемых кнопок}

Вы в данном цикле еще и кнопке создаете? Если нет, то это должно быть вынесено отдельно в процедуру или функцию, дабы не засорять себе мозг при разборе алгоритма со строкой.

Я ваша совесть

Я думал что Вы гораздо мельче .

[Риндера]

Сообщение от Utkin

А зачем уменьшать строку.

Я думаю, что если не уменьшать строку, то могут выпасть повторяющиеся индексы, а этого совсем не нужно.

[Utkin]

Сообщение от Риндера

Я думаю, что если не уменьшать строку, то могут выпасть повторяющиеся индексы, а этого совсем не нужно.

Изначально в задании этого не было...
Тогда Ваша ошибка в следующем - Вы занесли в цикл максимальную длину строку, не учитывая, что она каждый раз становится меньше. Для этого нужно использовать цикл while с условием что длина строки больше нуля....
В частности

c:=random(LoW)+2-i;

LoW постоянная величина, но длина строки, каждый раз меньше и меньше....

[Риндера]

Сообщение от Utkin

Изначально в задании этого не было...

Мне показалось, что это разумеется ^_^"
Но вопрос остался - работает не правильно)

[Stilet]

Не проще ли:

for i:=Length(CurWord) downto 1 do
begin
  {куча операторов со свойствами создаваемых кнопок}
  c:=random(Length(CurWord));
  b.Caption:=CurWord[c];
  Delete(CurWord, c, 1);
end;

[Риндера]

Хм...) Stilet, мне кажется, или это то же самое, только с downto?)))) Ну сейчас попробую..)

Upd. Ничего не изменилось. В тесте:
слово из 8 букв, на форме получилось - 2 кнопки пустые, 6 подписаны.
слово из 4 букв, на форме - 1 пустая, 3 подписаны.
слово из 11 букв, на форме - 4 пустых, 7 подписаны.

[Serge_Bliznykov]

Риндера
в коде от Stilet я не вижу косяков.
Ан нет, вижу! строки от единицы нумеруются, а random от нуля возвращает!!

Скажите, а Вы можете код дать целиком?
думаю, что на 99% проблема в том, как Вы получаете i-ю кнопку (я выделил):

for i:=Length(CurWord) downto 1 do
begin
  {куча операторов со свойствами создаваемых кнопок}
  c:=random(Length(CurWord))+1;
  b.Caption:=CurWord[c];
  Delete(CurWord, c, 1);
end;

[Риндера]

Serge_Bliznykov, спасибо за замечание про нолик в рандоме!
Не знаю каким чудом, но с

c:=random(Length(CurWord))+1;

работает как нужно! Спасибо всем большое!

[Utkin]

Точно? А может лучше:

c:=random(Length(CurWord-1))+1;

Ну чисто на всякий случай, или я напутал?