XProfan

English

KHR

Hello

how can I with of/ one by parameters übergebenen variables whom type check?

I Have there ne procedure in the sense The could numerisch or by String bedient go

Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan

01/02/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
Wodrich

PType$()

Best wishes
Michael Wodrich

Edit:
leaves itself with %PCount naturally too for several Parameter strain.

important: to or inside the PType$-clinging can no others functions called go (Auswirkungen on The Parameter-Speicherung).
there %PCount a Systemvariable is, works the naturally integrally lovely.

Programmieren, das spannendste Detektivspiel der Welt.

01/02/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
Wodrich

Compile Mark Separation

Proc Zahl_oder_String

    Declare Ergebnis$, Typ$
    Typ$ = PType$(1)

    If Typ$ = $

        Parameters ein_String$
        Ergebnis$ = ein_String$

    ElseIf Typ$ = &

        Parameters eine_Zahl&
        Ergebnis$ = Str$(eine_Zahl&)

    EndIf

    MessageBox(Ich habe +iif(Typ$=&,die Zahl,den String)+
    + Ergebnis$ +
    erhalten.,,0)
    Return Ergebnis$

EndProc

cls
print Zahl_oder_String(34)
print Zahl_oder_String(Okay)
WaitKey
End