[*]Profan

English

Michael
Dell

Var How Declare benefit : Var t1$,t2$,t3$

Globare variables from Procedures out : VarGL Test$ = "test" or VarGL t1$,t2$,t3$

variables directly on Procedures transfer : Proc Test(t1$,r&,z%) but not Parameters!

Return of Procedures : ENDPROC(r$,t &,x$[]) Return properly adjust

AddFiles strain : AddFiles D"*" any Ordner and Unterordner too vain (without and ..)
AddFiles DR"*.*" How D"*" but relatively to that actually Ordner indicated
AddFiles R"*.*" How *"*.*" but Ordner relatively to that actually indicated

Salu Michael...

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

09/15/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Proc Test(t1$,r&,z%) but not Parameters!

functions very so already with XPSE. [...]

but too so:
Compile Mark Separation

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 How Declare benefit : Var t1$,t2$,t3$

functions already with XPSE al�
Compile Mark Separation

string t1,t2,t3
or too
string t1="hallo",t2=t1,t3

To Addfiles look too time here [...]

and here [...]

Well know You already everything, but vlt. not The others.

09/15/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Several Return-variables wären nice (Datastack take advantage of?):

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

09/15/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

several Return-variables...

Compile Mark Separation

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>

goes means already, Arrays (or Speicheradressen by Long) zurückzugeben...

or. without xpse:
Compile Mark Separation

proc MYPROC

    PARAMETERS s$
    DECLARE MYRETVALS&[]
    MYRETVALS&[0]=&GETTICKCOUNT
    MYRETVALS&[1]=LEN(s$)
    RETURN MYRETVALS&[]

endproc

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