Hallo,
ich hab das jetzt einigermaßen hinbekommen, ich hab jetzt Code mit dem ich 8 Zahlen aus der Liste mit den Zahlen von 1-32 auswählen kann.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,e, Zahl: integer;
SchonEnthalten: boolean;
begin
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 := List.IndexOf(inttostr(random(list.Count)));
for b := 0 to List2.Count - 1 do begin
if Zahl = strtoint(List2.Strings[b]) then
SchonEnthalten := true else SchonEnthalten := false;
end;
if SchonEnthalten = false then List2.Add(IntToStr(Zahl));
end;
Memo1.Lines.Add(List2.Text);
end;
end.
Aber es klappt nicht alles:
1.Warum sind die Zahlen immer die gleichen?
2.Warum bekomme ich manchmal eine -1 als Zahl?
Gruß
Spurius