Arrays: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 2,280:
gotcha: [1, 2, 4]
</pre>
=={{header|DBL}}==
<lang delphi>;
; Arrays for DBL version 4 by Dario B.
;
.DEFINE NR,5
RECORD
VNUM1, 5D8 ;array of number
VNUM2, [5]D8 ;array of number
VNUM3, [5,2]D8 ;two-dimensional array of number
VALP1, 5A10 ;array of strings
VALP2, [5]A10 ;array of strings
VALP3, [5,2]A10 ;two-dimensional array of strings
VALP4, [NR]A10 ;array of strings
PROC
;------------------------------------------------------------------
;Valid uses of arrays
VNUM1(1)=12345678
VNUM2(1)=VNUM1(1) ; = 12345678
VNUM2[2]=VNUM1(1) ; = 12345678
VNUM2[3]=VNUM2[1](3:2) ; = 34
VNUM3[1,1]=1
VNUM3[1,2]=2
VNUM3[2,1]=3
VALP1(1)="ABCDEFGHIJ"
VALP2(2)=VALP1(1) ; = "ABCDEFGHIJ"
VALP2[2]=VALP1(1) ; = "ABCDEFGHIJ"
VALP2[3](3:2)=VALP2[1](3:2) ; = " CD "
VALP3[1,1]="ABCDEFGHIJ"
VALP3[1,2]=VALP3[1,1] ;= "ABCDEFGHIJ"
VALP3[2,1](3:2)=VALP3[1,2](3:2) ;= " CD "
VALP4[1]="ABCDEFGHIJ"
;Clear arrays
CLEAR VNUM1(1:5*8),VNUM3(1:5*2*8)
VNUM2(1:5*8)=
CLEAR VALP1(1:5*8),VALP2(1:5*10)
VALP3(1:5*2*10)=</lang>
=={{header|Delphi}}==
| |||