Servus Toxman,
die 2. Schleife hast du für die Überprüfung auf doppelte, oder ?
Wenn dem so ist, nimm TStringList.IndexOf(zusuchenderstring), das sparrt eine schleife, und dürfte das ganze übersichtlicher machen.
Sollte letztendlich dann so aussehen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
b, Zahl: integer;
begin
List := TStringlist.Create;
while List2.Count < 8 do
begin
Zahl := random(8);
if List.IndexOf(IntToStr(Zahl)) = -1 then
List2.Add(IntToStr(Zahl));
end;
end;
@Spurius
Ja ich halte sie noch aus
