XProfan

Français

KHR

allô

comment peux je chez einer per parameters übergebenen variablen den Typ feststellen?

je hab là ne Procédure im Sinn qui pourrait numerisch ou bien aussi per String bedient volonté

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

02.01.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Michael
Wodrich

PType$()

belle Grüße
Michael Wodrich

Edit:
Läßt sich avec %PCount naturellement aussi pour plusieurs paramètre erweitern.

important: avant ou bien dedans qui PType$-Klammern dürfen aucun anderen Funktionen aufgerufen volonté (Auswirkungen sur qui paramètre-Speicherung).
là %PCount une Systemvariable ist, klappt cela naturellement entier prima.

Programmieren, das spannendste Detektivspiel der Welt.

02.01.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Michael
Wodrich

Kompilieren Marque Séparation

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
Fin