Leere Records...

[Aphton]

Hmm, ok, soweit klar. Kannst du mir bitte ein praktisches Beispiel geben, denn ich weiß iM. nicht, wie ich auf damit umgehen soll.

Edit: Moment, ich probier mal ein paar Sachen aus...

Edit2: Ahh, ok, alles klar. Also ist soetwas wie ein untypisierter Pointer, wo man selber typecasten muss..

Delphi-Quellcode:

type
  PBlub = ^TBlub;
  TBlub = record
    A: DWord;
    B: record end;
  end;
var
  X: PBlub;
  Y: PByte;
begin
  GetMem( Y, 256 );
  try
    FillChar( Y^, 256, #80 );
    PDWord(Y)^ := 1990;
    X := PBlub( Y );
    showmessage( inttostr( X.A ) );
    showmessage( inttostr( PByte( @X^.B )^ ) );
  finally
    FreeMem( Y, 256 );
  end;

MfG