[*]Profan

Italia

Michael
Dell

Var wie Declare nutzen : Var t1$,t2$,t3$

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

Variablen direkt an Prozeduren trasferimento : Proc Test(t1$,r&,z%) Statt Parameters!

Rückgabe von Prozeduren : EndProc(r$,t&,x$[]) Return entsprechend anpassen

AddFiles erweitern : AddFiles D"*" alle Ordner und Unterordner auch Leere (ohne und ..)
AddFiles DR"*.*" wie D"*" aber relativ zum aktuellen Ordner angegeben
AddFiles R"*.*" wie *"*.*" aber Ordner relativ zum aktuellen angegeben

Salu Michael...

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

15.09.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

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

Funktioniert genau so bereits mit XPSE. [...]

aber auch so:
Kompilieren Markieren Separieren

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

Funktioniert bereits mit XPSE al�
Kompilieren Markieren Separieren

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

Zu Addfiles schau auch mal hier [...]

und hier [...]

Naja kennst Du bereits alles, aber vlt. nicht die anderen.

15.09.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Mehrere Return-Variablen wären nett (Datastack ausnutzen?):

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

15.09.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

mehrere Return-Variablen...

Kompilieren Markieren Separieren

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>

geht also auch schon, Arrays (oder Speicheradressen per Long) zurückzugeben...

bzw. ohne xpse:
Kompilieren Markieren Separieren

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]