prüfen von zahl

[ts-soft]

Das würde dann mit Kaeru Gaman Code in etwa so aussehen:

Code: Alles auswählen

Procedure IsNumeric(Ziffer.s)
  Ziffer = Left(Ziffer, 1)
  If Asc(Ziffer) >47 And Asc(Ziffer) <58
    ProcedureReturn #True
  EndIf
EndProcedure

ThisChar.s = "3"
If IsNumeric(ThisChar)
  Debug "Ja"
Else
  Debug "Nein"
EndIf

Immer noch wesentlich kürzer als die VB-Runtime

[Kaeru Gaman]

trotzdem würde ichs als "macro", nicht als procedure lösen...

ob ich nun schreibe

Code: Alles auswählen

If IsNumeric(i$)

oder

Code: Alles auswählen

If Asc(i$)>47 AND Asc(i$)<58

letzteres ist nur wenige zeichen länger...

wieder einmal ein beispiel dafür, wie man ein thema kaputtdiskutieren kann...

die frage war im 2. post schon beantwortet


@ts

Code: Alles auswählen

Ziffer = Left(Ziffer, 1)

ist redundant, da Asc() der Code des ersten zeichens zurückgibt.

[ts-soft]

@Kaeru
Sollte ja eigentlich ne Fehlermeldung rein, wahr mir nur zu lang für so einen simplen Zweck
Die Procedure hab ich ja nur gemacht, damit er eine VB-Kompatible Befehlserweiterung erhält