mmm ich glaube ich bin zu blöd das richtig anzuwenden (nun mit functions habe ich noch nie was gebastelt
). Das Ergebnis ist bei mir immer false :/
Ich rufe soetwas zB so auf:
Delphi-Quellcode:
Edit1.Text:=IntToStr(zahl);
Ergebnis:=IsPrime(StrToInt(zahl));
...
If Ergebnis=true then
begin
Showmessage('Ja die socke ist grün oder prim!');
end
else begin
Showmessage('Nein die Socke ist rot bzw. nicht prim!');
end;
end;
Bitte nicht hauen
