- 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