Verschieben in einem Speicherbereich.

[Chewie]

Was ist den XY? Dein Record?
Falls ja: Bei dem Record musst du natürlich einen Zeiger darauf übergeben. Beim String musst du das nur nicht tun, da es tatsächlich schon ein Zeiger ist. Nur wird dir durch die Compiler-Magic was andres vorgegaukelt.

[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

[Chewie]

Zeig mal den Code, wo du po initialisierst.

[shifter]

Meinst Du :

Delphi-Quellcode:

  po  := @sign;

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 
  sign.h :='blabla';

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

...

Wenn ich es so mache ist der ergebniss immer noch nicht ganz ok,
oder ich habe vieleicht andere vorstellung von der erg.

[shifter]

OK ich habe geschaft

oder besse gesaht wir haben geschaft.

Ich habe Stat:

Delphi-Quellcode:

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

So Gemacht :

Delphi-Quellcode:

Type  _SIGN = Record 
  h : String; 
  typ : Byte ; 
  comp : Boolean; 
End;

Und das hat die geschichte ausser bahn geworfen.

Gruss
seba

[Chewie]

Ein hoch auf den roten Kasten...

Gut.