Prüfen ob (Ganz-)Zahl

[BungeeBug]

Hi,

recht einfach.

Delphi-Quellcode:

IF (POS('.',Edit1.Text) OR POS(',',Edit1.Text)) <> 0 THEN
 BEGIN
  ShowMessage('zahl mit Nachkommastelle!');
 END
ELSE
 BEGIN
  ShowMessage('Keine Nachkommastelle!');
 END;