Verschieben in einem Speicherbereich.

[shifter]

Also ich denke so :

Delphi-Quellcode:

Type  _SIGN = Record 
  h : String[32]; 
  typ : Byte ; 
  comp : Boolean; 
End; 
p_sign = ^_sign;

Var
   Po   : p_sign; 
   Sign : _SIGN; 
   buf  : Array [0.511] of Byte; 

Begin 

   FillMemory( @buf, 512, 0 ); 
   MoveMemory( @buf, po , Sizeof( SIGN )); 

...

Ich bin aber mit dem ergebnis nicht 100% sicher :
Nach jedem versicht ohne irgend etwas zu ändern sieht der ergebnis anders aus

gruss
seba