4 bytes in ein Integer / Cardinal kopieren

[Olli]

4 Bytes woraus?

Angenommen es wäre ein record mit 4 einzelnen (Byte- oder Char-)Membern, dessen Typ TBla wäre, dann so:

Delphi-Quellcode:

var bla:TBla; card:Cardinal;
begin
  card := Cardinal(bla);
end;

Kommt drauf an. Bitte nochmal spezifizieren. Die Frage ist zu ungenau!

Edit: sorry, Syntaxfehler. Bin zur zeit auf C++ ... andere haben eben andere Drogen ... *g*

Noch'n Edit: Wenn es einzelne Bytes sind, dann ginge noch folgendes ...

Delphi-Quellcode:

var HoechstesByte, DrittesByte, ZweitesByte, NiedrigstesByte: Byte; card: Cardinal
begin
  card := Cardinal((HoechstesByte shl 24) or (DrittesByte shl 16) or (ZweitesByte shl 8) or NiedrigstesByte);
end;