[*]Profan

Français

Michael
Dell

Var comment Déclarer nutzen : Var t1$,t2$,t3$

Globare Variablen aus Prozeduren heraus : VarGL test$ = "test" ou bien VarGL t1$,t2$,t3$

Variablen direct à Prozeduren transfert : Proc Test(t1$,r&,z%) Statt Paramètres!

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

AddFiles erweitern : AddFiles D"*" alle Dossier et Unterordner aussi le vide (sans et ..)
AddFiles DR"*.*" comment D"*" mais relativ zum aktuellen Dossier angegeben
AddFiles R"*.*" comment *"*.*" mais Dossier relativ zum aktuellen angegeben

Salu Michael...

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

15.09.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Proc Test(t1$,r&,z%) Statt Paramètres!

Funktioniert oui c'est ca so bereits avec XPSE. [...]

mais aussi so:
Kompilieren Marque Séparation

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 comment Déclarer nutzen : Var t1$,t2$,t3$

Funktioniert bereits avec XPSE al�
Kompilieren Marque Séparation

string t1,t2,t3
ou bien aussi
string t1="hallo",t2=t1,t3

trop Addfiles exposition aussi la fois ici [...]

et ici [...]

bof kennst Du bereits alles, mais vlt. pas qui anderen.

15.09.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

plusieurs Retour-Variablen wären gentil (Datastack ausnutzen?):

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

15.09.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

plusieurs Retour-Variablen...

Kompilieren Marque Séparation

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>

allez alors aussi déjà, Arrays (ou bien Speicheradressen per Long) zurückzugeben...

bzw. sans xpse:
Kompilieren Marque Séparation

proc MYPROC

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

endproc

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