kk, atm hab ich es eifnachs o gemacht, lool:
Delphi-Quellcode:
var z,p1,p2:integer;
p1a,p2a: string;
begin
repeat
z:=random(443);
if z>=111 then begin
p1a:= inttostr(z);
p2a:= inttostr(z);
delete(p1a,2,3);
delete(p2a,1,2);
p1:=strtoint(p1a);
p2:=strtoint(p2a);
end;
until (z>=111) and (pi <> p2);
memo1.Lines.Add(inttostr(z))
funktioniert prima und erfüllt den zweck
