Mega Code Archive

 

Categories / Delphi / Algorithm Math

 

Tekrarlamayan sayı üretme

function GetUniqueNumber: Integer; asm @@1: MOV EDX,1 XCHG Guard,EDX OR EDX,EDX JNZ @@2 MOV EAX,Numbers INC EAX MOV Numbers,EAX MOV Guard,EDX RET @@2: PUSH 0 CALL Sleep JMP @@1 end;