[C++ -> Delphi]Der ">>" Operator

[Win32.API]

Hallo,


gibt es eine elegante Moeglichkeit folgendes in Delphi zu schreiben?

Code:

int8  tmp1;
int   tmp2;
int64 tmp3;

Source >> tmp1 >> tmp2 >> tmp3;

In Delphi wuerde ich es so uebersetzen:

Delphi-Quellcode:

tmp1 := pInt8(Source)^;
tmp2 := pInt(Source + SizeOf(int8))^;
tmp3 := pInt64(Source + SizeOf(int8) + SizeOf(int))^;

Ich persönlich finde das recht unschoen, folgendes gefaellt mir da schon besser:

Delphi-Quellcode:

type
 TSource = record
  tmp1: Int8;
  tmp2: Int;
  tmp3: Int64;
 end;
 PSource = ^TSource;

[...]

tmp1 := PSource(Source)^.tmp1;
tmp2 := PSource(Source)^.tmp2;
tmp3 := PSource(Source)^.tmp3;

Ist aber doch relativ unflexibel, gibt es noch eine andere Moeglichkeit?


Gruß,

Win32.API