Показать сообщение отдельно
  #1  
Старый 09.06.2010, 10:48
SnowLeopard SnowLeopard вне форума
Прохожий
 
Регистрация: 28.05.2010
Сообщения: 12
Репутация: 10
Восклицание RadioGroup жрёт буквы!!!

Всем Доброго Дня!
Итак, суть проблемы:
Есть четыре переменных. Они содержат четыре слова. Отправляем эти четыре слова в RadioGroup.Items. Затем извлекаем случайно выбранный Item из RadioGroup'а и получаем в Label'е слово без первой буквы.(((( В чём может быть проблема? Вот код:
Цитата:
ADOQuery1.First;
a:=ADOQuery1.FieldValues['word'];
ADOQuery1.Next;
b:=ADOQuery1.FieldValues['word'];
ADOQuery1.Next;
c:=ADOQuery1.FieldValues['word'];
ADOQuery1.Next;
d:=ADOQuery1.FieldValues['word'];
RadioGroup1.Items.Add(a);
RadioGroup1.Items.Add(b);
RadioGroup1.Items.Add(c);
RadioGroup1.Items.Add(d);
x:=RadioGroup1.Items.ValueFromIndex[Random(4)];
Label2.Caption:=x;
Ответить с цитированием