Алгоритм

[Artruman]

Идея такова в полях AdoTable coдержаться ответы на вопрос (тест),
мне нужно вывести эти ответы на кнопки (шесть кнопок) в случайном порядке+ответы не должны повторяться.

Допустим если кнопке выпадает пустое поле AdoTable то кнопка не видна. Доступ к полю через AdoTable1.Fields[от 2 до 6].AsString.

Помогите плз

[Ntlegend]

загоняешь все ответы в TStringList пустые строки удалить (если есть).. потом рандомно их перемешиваешь и потом присваиваешь на кнопки (тока не забудь пометить строки с правильным ответом)

[Artruman]

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

загоняешь все ответы в TStringList пустые строки удалить (если есть).. потом рандомно их перемешиваешь и потом присваиваешь на кнопки (тока не забудь пометить строки с правильным ответом)

Добавил в StringList,пустые удалил,а вот как их перемешать и где?

[Niarb]

вот тебе пример как перемешать строки...

procedure TForm1.Button1Click(Sender: TObject);
var sl: TStringList;
    i: integer;
begin
   memo1.Clear;
   sl:=TStringList.Create;
   for i:=0 to 9 do
      sl.Add(inttostr(i));
   repeat
      randomize;
      i:=random(sl.Count-1);
      memo1.Lines.Add(sl.Strings[i]);
      sl.Delete(i); // удаляем использованную строку
   until sl.Count=0;
   sl.Free;
end;

[Artruman]

Всем спасибо,все работает

procedure TForm1.Button1Click(Sender: TObject);
var i:integer; Sl: TStringList;
begin
 randomize;
 memo1.Clear;
 Sl:=TstringList.Create;
 i:=2;
  repeat
   if AdoTable1.Fields[i].AsString<>'' then
    Sl.Add(AdoTable1.Fields[i].AsString);
    i:=i+1;
  until i=AdoTable1.FieldCount;
   repeat
    i:=random(Sl.Count);
    Memo1.Lines.Add(Sl.Strings[i]);
    Sl.Delete(i);
   until Sl.Count=0;
   Sl.Free;
end;