4 bytes in ein Integer / Cardinal kopieren

[Jasmine]

Hallo liebe Delphi Freunde,

ich habe eine Frage :

Wenn ich 4 Bytes in eine Integer oder Cardinal Variable kopieren möchte,
wie geht dies am schnellstens ? Also die 4 bytes sollen zusammen ein 32 bit Integer ergeben.

Ich habe eine Lösung mit or und shl gefunden, die mir allerdings nicht sehr gefällt.
Gibt es nicht eine Copy Variante oder etwas ähnliches ?

Dankeeee.

Jasmine

:cat:

[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++ :wall: ... 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;

[marabu]

Um die Verwirrung zu komplettieren - hier noch eine umfangreiche Behandlung dieses Themas.

Grüße vom marabu

[Jasmine]

Danke..... hat mir sehr geholfen :-D

Jasmine

:cat:

[Sidorion]

Kannst auch ein Recordtyp deklarieren:

Delphi-Quellcode:

  TByteInt=Record
   Case Boolean Of
     False: (Int: Integer);
     True: (Byte0: Byte;
            Byte1: Byte;
            Byte2: Byte;
            Byte3: Byte);
  End;

Jetzt kannst Du eine Variable vom Typ TByteInt Deklarieren und da dann entweder auf MyVar.Int zugreifen und kriegst einen Integer oder mit MyVar.Byte0 .. MyVar.Byte3 auf die einzelnen Bytes.

[Olli]

Zitat:

Zitat von Sidorion

Kannst auch ein Recordtyp deklarieren

Der war mehr als flüssig. Habe ich oben schon erwähnt und im Link von marabu findest du diesen Beitrag von Dax.