XProfan

Deutsch

KHR

Hallo

wie kann ich bei einer per parameters übergebenen variablen den Typ feststellen?

Ich hab da ne Prozedur im Sinn die könnte numerisch oder auch per String bedient werden

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

02.01.2009 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Michael
Wodrich

PType$()

Schöne Grüße
Michael Wodrich

Edit:
Läßt sich mit %PCount natürlich auch für mehrere Parameter erweitern.

Wichtig: Vor oder innerhalb der PType$-Klammern dürfen keine anderen Funktionen aufgerufen werden (Auswirkungen auf die Parameter-Speicherung).
Da %PCount eine Systemvariable ist, klappt das natürlich ganz prima.

Programmieren, das spannendste Detektivspiel der Welt.

02.01.2009 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Michael
Wodrich

Kompilieren Markieren Separieren

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