Funktioner

[Sasja]

Finns det funktioner som kan skicka tillbaka två eller flera värden? Hur gör man isåfall det?

 

[Mikael Ericsson]

Så här:

 

function Frukter() 'returnerar 3 värden
dim retur(2)
retur(0)="Apelsin"
retur(1)="Banan"
retur(2)="Päron"
Frukter=retur
end function

dim MinaFrukter
MinaFrukter=Frukter()
alert(MinaFrukter(0))
alert(MinaFrukter(1))
alert(MinaFrukter(2))

function Bilar() ' returnerar okänt antal
dim retur()
redim preserve retur(0)
retur(0)="Volvo"
redim preserve retur(1)
retur(1)="Saab"
redim preserve retur(2)
retur(2)="Audi"
redim preserve retur(3)
retur(3)="Mazda"
Bilar=retur
end function

dim MinaBilar
MinaBilar=Bilar()
for i=0 to ubound(MinaBilar)
alert(MinaBilar(i))
next

 

[Sasja]

Tackar, tackar!