Record aus Speicherbereich initialisieren

[sirius]

@NG, ich bezweifle, dass man untypisierte pointer so inc'en kann. Zumindest für D7 geht das IMHO nicht.

@TE
Was machst du da? Willst du so etwas haben:

Delphi-Quellcode:

type 
  PVec3D = ^TVec3D;
  TVec3D = packed record 
    x,y,z:single; 
  end; 

procedure Foo; 
var pPointerAufSpeicherbereich:PVec3D; 
begin 
   pPointerAufSpeicherbereich := getRichtigenSpeicherbereich; 
   for i:=0 to x do
   begin
     pPointerAufSpeicherbereich.x:=5;
     inc(pPointerAufSpeicherbereich); //die Größe weis Delphi durch den typisierten Pointer selber
   end;     
end;