Eine Frage? Warum endet folgender Code in einer Endlisschleige und wie wäre es richtig?
Delphi-Quellcode:
x:=Form1.ListBox1.Items.Count;
//----
if x>0 then begin
Randomize;
y:=StrToInt(Form3.Label1.Caption);
z:=Random(x);
if z=y then begin
While (z=y) do begin
z:=Random(x)
end;
Form3.Label1.Caption:=IntToStr(z);
end else begin
Form3.Label1.Caption:=IntToStr(z);
end;
end else z:=0;
Diese Frage hat sich erledigt! Da ich eine ListBox verwende muss es
if x<0 heißen.
