Wie übergibt man eigentlich ein Array von Pointern an eine Prozedur ?
Code: Alles auswählen
EnableExplicit
Dim *BlobMem(5)
Dim BlobSize.i(5)
Define BloBNr.i
Procedure prepareBlobs(Array *BlobMem(1),Array BlobSize.i(1))
Protected BlobNr.i
For BlobNr=0 To 4
BlobSize(BlobNr)=10*BlobNr+5 ; fiktive Werte
*BlobMem(BlobNr)=AllocateMemory(BlobSize(BlobNr))
Debug "in prepare "+"Nr="+Str(BlobNr)+ "Mem="+Str(*BlobMem(BlobNr))+"size="+Str(BlobSize(BlobNr))
Next
EndProcedure
prepareBlobs(@*BlobMem(),@BlobSize())
For BlobNr=0 To 4
Debug "nach prepare "+"Nr="+Str(BlobNr)+ "Mem="+Str(*BlobMem(BlobNr))+"size="+Str(BlobSize(BlobNr))
FreeMemory(*BlobMem(BlobNr))
Next
prepareBlobs(@*BlobMem(),@BlobSize()) oder prepareBlobs(*BlobMem(),@BlobSize()) benutze.
Wo liegt mein Fehler?