Records unter 32 und 64Bit

[EWeiss]

Zitat von Neutral General:

Zitat von EWeiss:

Wie sie da rein kommen bzw.. übergeben werden ist im Quelltext ersichtlich.

Ja das meinte ich.
Und das ist ein sehr wichtiger Punkt der besser in deinem Post enthalten wäre als *irgendwo* in deinem angehangenen Quelltext.
Es gibt wahrscheinlich nicht viele die sich nur deswegen deinen gesamten Code anschauen wollen. (Ich z.B. auch nicht)

OK! Du hast recht
So werden sie übergeben.

Delphi-Quellcode:

 
var  
  SpriteResPath: string;
//.. 
  SpriteResPath := ExtractFilePath(ParamStr(0)) + 'SpriteRes\';
  
  gSpriteData[1].ImageName := PWideChar(SpriteResPath + '3.png');
  gSpriteData[2].ImageName := PWideChar(SpriteResPath + '1.png');
  gSpriteData[3].ImageName := PWideChar(SpriteResPath + '2.png');
  gSpriteData[4].ImageName := PWideChar(SpriteResPath + '1.png');
  gSpriteData[5].ImageName := PWideChar(SpriteResPath + '2.png');
  gSpriteData[6].ImageName := PWideChar(SpriteResPath + '1.png');
  gSpriteData[7].ImageName := PWideChar(SpriteResPath + '2.png');
  gSpriteData[8].ImageName := PWideChar(SpriteResPath + '1.png');
  gSpriteData[9].ImageName := PWideChar(SpriteResPath + '2.png');
  gSpriteData[10].ImageName := PWideChar(SpriteResPath + '1.png');

gruss