Nachtrag:
Ich hab das jetzt so gemacht:
Delphi-Quellcode:
var
Form1: TForm1;
List, List2: TStringlist;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var a,b,Zahl: integer;
Disc: boolean;
begin
randomize;
List := TStringlist.Create;
List2 := TStringlist.Create;
for a := 1 to 32 do begin
List.Add(inttostr(a));
end;
while List2.Count < 8 do begin
Zahl := random(32);
for b := 1 to List2.Count do begin
if Zahl = List2.IndexOf(IntToStr(b)) then
Disc := False;
end;
if Disc = true then List2.Add(IntToStr(Zahl));
Disc := true;
end;
memo1.Lines.Add(List2.Text);
end;
end.
Allerdings kommen dabei die Zahlen teilweise mehrfach vor, was mir bei der Lösung mit dem Memo nicht aufgefallen ist. Wie kann ich das umgehen?