PureBasic Forums - English

Posted: **Mon Jan 03, 2005 7:01 am**

I've been fighting with this all day now.. please assist if possible.

In delphi i'd do this:

  TGridPoint = record
    P : TGLCoord;
    Value : FLoat;
  end;
  PGridPoint = ^TGridPoint;
  TGridCube = record
    GridPoint : Array [0..7] of PGridPoint;
  end;

(^ in the Delphi code is a pointer)

Now, i have tried just about everything to get this to translate to PureBasic.

Code: Select all

Structure TGridPoint
  p.TGLCoord
  value.f
EndStructure

*PGridPoint = TGridPoint

Structure TGridCube
  *GridPoint.PGridPoint[8]
EndStructure

This gives an error deep in the code about an undefined structure (PGridPoint).

I need the structure TGridCube to point to whatever is inside the structure TGridPoint (hard to explain how i use it in code, but it's used for a load of math)

Is there any way to do what Delphi does without even breaking a sweat?

Tim

Posted: **Mon Jan 03, 2005 7:17 am**

Code: Select all

Structure TGridPoint 
  p.TGLCoord 
  value.f 
EndStructure 

Structure TGridCube 
  *GridPoint.TGridPoint[8] 
EndStructure

Posted: **Mon Jan 03, 2005 7:18 am**

I could be wrong but isn't it just like this?

Code: Select all

Structure PGridPoint
  p.GLCoord ; to be defined further... (x.f, y.f, z.f ?)
  value.f
EndStructure

Structure TGridCube
  GridPoint.PGridPoint[7]
EndStructure

I could imagine you don't need all that pointer stuff. (?)

Posted: **Mon Jan 03, 2005 7:18 am**

...and too late again

Posted: **Mon Jan 03, 2005 7:29 am**

I actually do need it as a pointer inside the structure, otherwise i have to write EIGHT times as much code for what i am doing!

Tim

Posted: **Mon Jan 03, 2005 7:42 am**

this is a pointer to the structure:

Code: Select all

*GridPoint.TGridPoint[8]

this is not:

Code: Select all

GridPoint.TGridPoint[8]

check the struct sizes with SizeOf()

PureBasic Forums - English

Structures and such

Structures and such

Re: Structures and such

Re: Structures and such