Überprüfen auf Datentyp

[Seikilos]

Warum kein Val, funzt perfekt:

Delphi-Quellcode:

Val(stringreplace(Copy(liste2.items[i],strtoint(bholder[0])+1,strtoint(bholder[1])-strtoint((bholder[0]))-1),' ','',[rfReplaceAll, rfIgnoreCase]),ihold, code);                               
if code <> 0
                                   then showmessage('KEINE ZAHL')
                                   ELSE showmessage('zahl');