Code: Select all
Structure myStruc
myArray.i[0]
EndStructure
Define a.myStruc
a\myArray[2] = 24
Debug a\myArray[2] ; Outputs 24.
I know it’s not a big deal, so my apologies if it’s a waste of time.
Code: Select all
Structure myStruc
myArray.i[0]
EndStructure
Define a.myStruc
a\myArray[2] = 24
Debug a\myArray[2] ; Outputs 24.
Code: Select all
;coud be any type like Double Float Integer Quad or any Structure
Structure LPSTR
c.Char[0]
EndStructure
Procedure FindStringLike(*String.LPSTR, Mask$)
;Access n th character of string with *String\c[n]
If Mask$ = "#" and *String\c[1] = "9" then
Debug "Find:" = *String\c[1]
EndIf
EndProcedure
String$ = "9999999"
FindStringLike(@String$, "#")
Code: Select all
Structure ArrayOfInteger
iVal.i[0]
EndStructure
Define *a.ArrayOfInteger
Debug "Mydata"
*a = ?MyData
c = *a\iVal[0]
For i = 1 To c
Debug *a\iVal[i]
Next
Debug "MyData2"
*a = ?MyData2
c = *a\iVal[0]
For i = 1 To c
Debug *a\iVal[i]
Next
DataSection
MyData:
Data.i 5
Data.i 100, 200, 300, 400, 500
MyData2:
Data.i 6
Data.i 1000, 2000, 3000, 4000, 5000, 6000
EndDataSection