Seite 2 von 2
Verfasst: 24.09.2005 09:06
von 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
Verfasst: 24.09.2005 10:19
von Kaeru Gaman
trotzdem würde ichs als "macro", nicht als procedure lösen...
ob ich nun schreibe
oder
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
ist redundant, da Asc() der Code des ersten zeichens zurückgibt.
Verfasst: 24.09.2005 10:36
von 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
