Datentype Array of Byte und Cardinal

[gammatester]

Zitat von schwa226:

Fertig und geht:

Delphi-Quellcode:

//...
procedure TCardinalRec.SetCardinal(const Value : Cardinal);
begin
  _Byte[0] := Value shr 24;
  _Byte[1] := Value shr 16;
  _Byte[2] := Value shr 8;
  _Byte[3] := Value and $FF;
end;

Das geht aber nur deshalb, weil Du Rangecheck ausgeschaltet hast oder zu kleine Werte nimmst. Immerhin scheinst Du ja nur zu 75% überzeugt zu sein, sonst hättest Du ja auch konsequenterweise _Byte[3] := Value; gesetzt. Also:

Delphi-Quellcode:

procedure TCardinalRec.SetCardinal(const Value : Cardinal);
begin
  _Byte[0] := Value shr 24 and $FF;
  _Byte[1] := Value shr 16 and $FF;
  _Byte[2] := Value shr  8 and $FF;
  _Byte[3] := Value        and $FF;
end;

wobei man sich bei der _Byte[0]-Berechnung theroretisch das and $FF sparen könnte.

[Bummi]

Einen hab ich noch

Delphi-Quellcode:

  function Swap(Value: Cardinal): Cardinal;
  asm
     BSWAP EAX
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  c:Cardinal;
begin
 c := $AABBCCDD;
 c := Swap(c);
 Showmessage(IntToHex(c,8))
end;