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