Regards
Fafi
- Code: Select all Expand view
#include "fivewin.ch"
function main()
local aOne := {"One"}
local aTwo := aOne
local nOne := 1
local nTwo := nOne
local cOne := "One"
local cTwo := cOne
for i := 1 to len(aOne)
?aOne[i] + aTwo[i]
next
aOne[1] := "Good"
for i := 1 to len(aOne)
?aOne[i] + aTwo[i]
next
aTwo := aclone(aOne)
for i := 1 to len(aOne)
?aOne[i] + aTwo[i]
next
aOne[1] := "Bed"
for i := 1 to len(aOne)
?aOne[i] + aTwo[i]
next
?str(nOne,1)+str(nTwo,1)
nOne := 3
?str(nOne,1)+str(nTwo,1)
?cOne+cTwo
cOne := "Hello"
?cOne+cTwo
aTwo := aOne
for i := 1 to len(aOne)
?aOne[i] + aTwo[i]
next
aOne[1] := "FWH"
for i := 1 to len(aOne)
?aOne[i] + aTwo[i]
next
return nil