Funktion die Zeichen auf Nummerischen Wert checkt??

cherry · Beiträge: 136 WinXP - Professional RAD Studio 2009

Hallo du..
ich bräuchte kurz mal die Funktion die mir sagen kann ob das angegebene Zeichen
ein Nummerischen Wert ist oder nicht. ??

so in der Art:

Delphi-Quelltext

1:
2:

if ISTZAHL(MidStr(String1, 1, 1)) then
 ShowMessage('Juhui das erste Zeichen im String String1 ist eine Zahl!')

??

THX

cherry tree :shock:

Moderiert von raziel: Code- durch Delphi-Tags ersetzt.

jaenicke · Verfasst: Di 12.07.05 10:51

Delphi-Quelltext

1:
2:

if Ord(DeinChar) in ['0'..'9'] then
...

Alstar · Beiträge: 827

Etwas ungewöhnliche Lösung, aber funzt (hoffe ich mal):

Delphi-Quelltext

1:
2:
3:
4:

  if ((Byte(MidStr(String1, 1, 1)) > 47) and ((Byte(MidStr(String1, 1, 1)) < 58) then
    // ist eine Zahl
  else
   // keine Zahl

Alstar

jasocul · Verfasst: Di 12.07.05 10:53

oder nach deinem Beispiel:

Delphi-Quelltext

1:	if string1[1] in ['0'..'9'] then ...

cherry · Beiträge: 136 WinXP - Professional RAD Studio 2009

Genau das habe isch gemeint.

Dakder