Code : Tout sélectionner
; code de la dll
Procedure.s RempliTablo()
Dim tableau.s(5)
For t=0 To 5
tableau(t)="phrase"+Str(t)
ProcedureReturn tableau(t)
Next t
EndProcedure
ou bien
Code : Tout sélectionner
; code de la dll
ProcedureDLL.s RempliTablo()
Dim tableau.s(5)
For t=0 To 5
tableau(t)="phrase"+Str(t)
Next t
if tartampion
ProcedureReturn tableau(5) ,tableau(6)
else if toto
ProcedureReturn tableau(2) ,tableau(1)
endif
EndProcedure
a,b=RempliTablo()
et l'argument renvoyé en premier irai dans la variable a
et le deuxiemme dans la variable b
la Purebasic deviendrai puissant !!

pour retourner un ou plusieurs arguments dans des conditions