Zahlen "verteilen"

[Nikolas]

- wofür hast du die erste Stringlist? Die wird gefüllt , aber nicht benutzt. Ich hab mal ein paar Sachen geändert und ich hab jetzt keine doppelten Zahlen mehr:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var {a,}b,Zahl: integer;
    Disc: boolean;
begin
disc
//List := TStringlist.Create;
List2 := TStringlist.Create;
//for a := 1 to 32 do begin List.Add(inttostr(a));

while List2.Count < 8 do
begin
Zahl := random(8); // Doppelte sind schneller zu sehen 
   for b := 0 to List2.Count-1 do // !!!
   begin
        if Zahl = strtoint(List2[b]) then // !!!
        Disc := False;
   end;
if Disc = true then List2.Add(IntToStr(Zahl));
Disc := true;
end;
end;

Jetzt kannst du random(99)+1 und listcount < 100 reinschreiben und dann die Liste zerschneiden.
- warum nennst du den Boolean 'disc'??

TOX