Need an array of Types

BlitzPlus Forums/BlitzPlus Programming/Need an array of Types

Zooker(Posted 2005) [#1]
Type Record
Field F1
Field F2
End Type
Global Transaction=New Record
Dim Transaction(6000)
X=12
WriteFile file
For Transaction(X).Record = Each Record
WriteLine file, Transaction(X)\F1
WriteLine file, Transaction(X)\F2
Next

The above didn't work! Can somebody straighten it out for me, this should be my last hurdle to finish my program!
Next
CloseFile file


Snarty(Posted 2005) [#2]
Dim Transaction.Record(6000)

Then every time you add a new transaction place it in the array.

Transaction(1)=New Record
Transaction(2)=New Record

etc

The array will act as an indexed pointer list to your type list.


Grey Alien(Posted 2005) [#3]
then change your for loop to this
For X = 0 to 6000


If you weren't using an array but had declared many instances of Record, your for loop could be like this:
For r.Record = each Record
WriteLine File, r\f1
WriteLine File, r\f2
Next



Zooker(Posted 2005) [#4]
Thanks