Zahl auf ihre Natürlichkeit überprüfen

[Chrissi91]

Jetzt komm ich wieder mit meinem pos

Geht das auch mit Pos?

Delphi-Quellcode:

if pos(edit2.text,',') then
begin
 //was hier passieren soll
end;

Müsste doch auch gehen, oder?

Würde dann meiner Meinung so aussehen.
Beide Variablen sind natürlich integer.

Delphi-Quellcode:

zaehler:=0;
repeat
zaehler:=zaehler+1;
zahl:=zaehler;
zahl:=zahl/7;
if pos(zahl,',')then showmessage('Zahl ist keine natürliche Zahl');
until i=100; //als Beispiel

(ungetestet)

Hoffe, ich konnte dir helfen, auch wenns unübersichtlich ist ...