[*]Profan

Español

Michael
Dell

Var como Declarar nutzen : Var t1$,t2$,t3$

Globare Variables de Prozeduren heraus : VarGL test$ = "test" oder VarGL t1$,t2$,t3$

Variables direkt a Prozeduren transferencia : Proc Test(t1$,r&,z%) Statt Parámetros!

Rückgabe de Prozeduren : ENDPROC(r$,t&,x$[]) Volver entsprechend adaptar

AddFiles erweitern : AddFiles D"*" todos Ordner y Unterordner auch Leere (sin y ..)
AddFiles DR"*.*" como D"*" aber relativ para aktuellen Ordner angegeben
AddFiles R"*.*" como *"*.*" aber Ordner relativ para aktuellen angegeben

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

15.09.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Proc Test(t1$,r&,z%) Statt Parámetros!

Funktioniert genau así ya con XPSE. [...]

aber auch así:
Kompilieren Marca Separación

Proc Test(t1$,r&,z%)

    proc test(string t1,t2,t3,long r,int z)oder auch

        test(string t1,t2,t3,long r,int z){return blub}

Var como Declarar nutzen : Var t1$,t2$,t3$

Funktioniert ya con XPSE al�
Kompilieren Marca Separación

cadena t1,t2,t3
oder auch
cadena t1="hallo",t2=t1,t3

Zu Addfiles mostrar auch veces hier [...]

y aquí [...]

Naja kennst Usted ya alles, aber vlt. no el otro.

15.09.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Mehrere Volver-Variables wären nett (Datastack ausnutzen?):

Volver x%,y&,varGL z$, word y#[2,3]
´

15.09.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

mehrere Volver-Variables...

Kompilieren Marca Separación

myProc(string s){

    longs myRetVals
    myRetVals[0]=getTickCount
    myRetVals[1]=len(s)
    return myRetVals

}

longs myBackVals=myProc("smilie")
print myBackVals[0]
print myBackVals[1/span>

va also auch ya, Arrays (oder Speicheradressen por Largo) zurückzugeben...

o. sin xpse:
Kompilieren Marca Separación

proc MYPROC

    PARAMETERS S$
    DECLARE MYRETVALS&[]
    MYRETVALS&[0]=&GETTICKCOUNT
    MYRETVALS&[1]=LEN(S$)
    RETORNO MYRETVALS&[]

ENDPROC

DECLARE MYBACKVALS&[]
MYBACKVALS&[]=MYPROC("smilie")
PRINT MYBACKVALS&[0]
PRINT MYBACKVALS&[1]