XProfan

Español

KHR

¡Hola

como kann Yo en uno por parámetros übergebenen variablen el Typ determinar?

Yo como ne Procedimiento en el Sinn el podría numerisch oder auch por String bedient voluntad

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

02.01.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
Wodrich

PType$()

Schöne Grüße
Michael Wodrich

Editar:
Läßt se con %PCount natürlich auch para mehrere Parámetro erweitern.

Wichtig: Vor oder innerhalb el PType$-Klammern dürfen no otro Características aufgerufen voluntad (Auswirkungen en el Parámetro-Speicherung).
Como %PCount una Systemvariable es, klappt el natürlich bastante prima.

Programmieren, das spannendste Detektivspiel der Welt.

02.01.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
Wodrich

Kompilieren Marca Separación

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