Randomize 5 ComboBoxe

Hvad hedder dine comboboxe? ComboBox1, ComboBox2 osv. eller ?

for i=1 to 5 do begin
igen:
  x:=rnd(8)
  for j=1 to i-1 do
    if combo(i).itemSelected=x then goto igen
  combox(i).itemSelected=x
end

procedure GoRando(Boxe: Array of TComboBox);
var
  Used,i,x : integer;
begin
  Randomize;
  Used:=$FFFF;
  for i:=0 to 4 do
  begin
    repeat
      x:=random(8)+1;
    until (Used and (x shl x)) =(x shl x);
    Boxe[i].ItemIndex:=x-1;
    Used:=Used-(x shl x);
  end;
end;

----------
Hvis f.eks. dine boxe hedder ComboBox1, ComboBox2 osv. kaldes den sådan:

GoRando([ComboBox1,ComboBox2,ComboBox3,ComboBox4,ComboBox5]);

Okay mange tak Kroning :) Det virker perfekt.
Du får selvfølgeligt pointene hvis du blot lægger et svar. Men har lige et spørgsmål til nu vi er ved emnet:
Hvordan kan jeg (når man vælger en item i en combobox) tjekke om denne item er valgt i en af de andre 5 boxe. Og hvis den er så skal den automatisk vælge item'en under den valgte medmindre den selvfølgeligt også er valgt i en af de andre.
Håber du forstår og gider hjælpe :)

Har også et andet problem med din kode kroning: Hver ENESTE gang der bliver randomized bliver item 1, 3 og 8 valgt. Alle de andre er vist ret tilfældige med ikke lige de 3 :S

Ang. 1,3 og 8 så er der en fejl i proceduren men den er nu heller ikke særlig god, denne er bedre da der ikke er en teoretisk meget lang repeat until lykke i den:

procedure GoRando(Boxe: Array of TComboBox);
var
  i,c,x : integer;
  Used : array[0..7] of byte;
begin
  Randomize;
  for i:=0 to 7 do
    Used[i]:=i;
  c:=8;
  for i:=0 to 4 do
  begin
    x:=random(c);
    Boxe[i].ItemIndex:=Used[x];
    Used[x]:=Used[c-1];
    dec(c);
  end;
end;

Jeg forstår ikke helt dit spørgsmål: 16:08:56

Super :) Denne virker korrekt :)

Hmm har en anden ide så: Når man trykker på en knap skal denne tjekke om 2 eller flere comboboxe (ud af mine 5 boxe) har den samme item valgt og hvis de har udføre noget kode.

Det burde kunne gøren sådan:

function FlereEns(Boxe: Array of TComboBox) : boolean;
var
  i,x : integer;
begin
  Result:=true;
  for i:=0 to 3 do
    for x:=i+1 to 4 do
      if Boxe[i].ItemIndex=Boxe[x].ItemIndex then
        exit;
  Result:=false;
end;

-----
  if FlereEns([ComboBox1,ComboBox2,ComboBox3,ComboBox4,ComboBox5]) then
    showmessage('jep der foretaget samme valg');

Super duper :) Tak skal du ha' :D