Алгоритм

[Artruman]

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

Допустим если кнопке выпадает пустое поле AdoTable то кнопка не видна.

repeat
 rnd:=random(6)+1;
  case rnd of
   1:begin
      if AdoTable1.Fields[2].AsString<>'' then
       begin
        RzButton1.Caption:=AdoTable1.Fields[2].AsString;
        RzButton1.Visible:=True;
       end;
     end;
   2:begin
      if AdoTable1.Fields[3].AsString<>'' then
       begin
        RzButton1.Caption:=AdoTable1.Fields[3].AsString;
        RzButton1.Visible:=True;
       end;
     end;
   3:begin
      if AdoTable1.Fields[4].AsString<>'' then
       begin
        RzButton1.Caption:=AdoTable1.Fields[4].AsString;
        RzButton1.Visible:=True;
       end;
     end;
   4:begin
      if AdoTable1.Fields[5].AsString<>'' then
       begin
        RzButton1.Caption:=AdoTable1.Fields[5].AsString;
        RzButton1.Visible:=True;
       end;
     end;
   5:begin
      if AdoTable1.Fields[6].AsString<>'' then
       begin
        RzButton1.Caption:=AdoTable1.Fields[6].AsString;
        RzButton1.Visible:=True;
       end;
     end;
   6:begin
      if AdoTable1.Fields[7].AsString<>'' then
       begin
        RzButton1.Caption:=AdoTable1.Fields[7].AsString;
        RzButton1.Visible:=True;
       end;
     end;
     end;

Но это только одна кнопка,а мне бы все+не повторяются...

[Антон Ю.Б.]

Что-то типа такого (не проверял, писал в блокноте):

s:='123456';
for i:=1 to 5 do
begin
rnd:=random(7-i)+1;
TButton(Form1.FindComponent(RzButto n+s[rnd])).Caption:=AdoTable1.Fields[1+rnd].AsString;
TButton(Form1.FindComponent(RzButto n+s[rnd])).Visible:=(AdoTable1.Fields[1+rnd].AsString<>'');
delete(s,rnd,1);
end;
TButton(Form1.FindComponent(RzButto n+s)).Caption:=AdoTable1.Fields[1+StrToInt(s)].AsString;
TButton(Form1.FindComponent(RzButto n+s)).Visible:=(AdoTable1.Fields[1+StrToInt(s)].AsString<>'');