procedure main
local aArray1,aArray2
aArray1:= { {1,1},{2,2} }
aArray2 := Aclone(aArray1)
? "aArray1[1,1]"+Str(aArray1[1,1])+Chr(13)+Chr(10)+;
"aArray1[1,2]"+Str(aArray1[1,2])+Chr(13)+Chr(10)+;
"aArray1[2,1]"+Str(aArray1[2,1])+Chr(13)+Chr(10)+;
"aArray1[2,2]"+Str(aArray1[2,2])+Chr(13)+Chr(10)+;
+chr(13)+chr(10)+;
"aArray2[1,1]"+Str(aArray2[1,1])+Chr(13)+Chr(10)+;
"aArray2[1,2]"+Str(aArray2[1,2])+Chr(13)+Chr(10)+;
"aArray2[2,1]"+Str(aArray2[2,1])+Chr(13)+Chr(10)+;
"aArray2[2,2]"+Str(aArray2[2,2])+Chr(13)+Chr(10)
? "modifico array2 y pongo todos los valores a 1"
aArray2[1,1] := 1
aArray2[1,2] := 1
aArray2[2,1] := 1
aArray2[2,2] := 1
? "aArray1[1,1]"+Str(aArray1[1,1])+Chr(13)+Chr(10)+;
"aArray1[1,2]"+Str(aArray1[1,2])+Chr(13)+Chr(10)+;
"aArray1[2,1]"+Str(aArray1[2,1])+Chr(13)+Chr(10)+;
"aArray1[2,2]"+Str(aArray1[2,2])+Chr(13)+Chr(10)+;
+chr(13)+chr(10)+;
"aArray2[1,1]"+Str(aArray2[1,1])+Chr(13)+Chr(10)+;
"aArray2[1,2]"+Str(aArray2[1,2])+Chr(13)+Chr(10)+;
"aArray2[2,1]"+Str(aArray2[2,1])+Chr(13)+Chr(10)+;
"aArray2[2,2]"+Str(aArray2[2,2])+Chr(13)+Chr(10)
_________________ (C) Josu Udaondo...el fiera de clipper 5
Bilbao 2006
|