Jetzt mal anhand ner Function die Zahlen zurückgibt:
Delphi-Quellcode:
function GibMirNeZahl: Integer;
begin
Result := random(10);
end;
procedure Ka;
var Temp,Temp2: Integer;
begin
Temp := GibMirNeZahl;
repeat
Temp2 := GibMirNeZahl;
until Temp2 <> Temp;
end;
Naja soo ungefähr würd ichs vielleicht machen.. aber es kommt drauf an welches problem du genau hast.. weil das mit der Schleife bietet sich wahrscheinlich nicht oft an :mrgreen:
Und meine Function + ausführung ist halt sehr verallgemeinert... ^^
PS: Hoffe ich hab dich ansatzweise richtig verstanden ^^
PPS: Ich glaube du meinst das noch viel einfacher..
mom.. ich editier das grad mal..
PPS: Sry ich bin grad zu müde um mein Kopf anzustrengen -.-
Und das was oben steht ist auch Schwachsinn -.-
Gruß
Neutral General