Sorry, ich hab oben bei der Funktion den Rückgabewert vergessen gehabt
Du musst einfach diese Funktion mit der Zahl, von der du wissen willst, ob sie Prim ist, als Parameter aufrufen:
Delphi-Quellcode:
b1,b2,b3:Boolean;
b1:=IsPrime(5);
b2:=IsPrime(1);
b3:=IsPrime(5680);
b1 wird danach True, b2 und b3 false sein...
[Edit]Wenn du des mit C&P machst, kopier dir doch nochmal die neueste Version von oben, ich hatte noch die deklariation von i vergessen...
[Edit] Isnotprime wurde auch nicht deklariert..