CardinalToBytes + BytesToCardinal

[himitsu]

@jfheins: vergiß Delphi 2009/2010 nicht

Delphi-Quellcode:

function IntegerToChars(const Num: Integer): AnsiString;
begin
  SetLength(Result, SizeOf(Integer));
  CopyMemory(@Result[1], @Num, SizeOf(Integer));
end;

oder wenn es unbedingt eine Schleife sein muß

Delphi-Quellcode:

function IntegerToChars(Num: Integer): String{oder AnsiString};
var
  i: Integer;
begin
  Result := '';
  for i := 1 to SizeOf(Integer) do begin
    Result := Result + AnsiChar(Num);
    Num := Num shr 8;
  end;
end;

und nach winziger Speicheroptimierung

Delphi-Quellcode:

function IntegerToChars(Num: Integer): String{oder AnsiString};
var
  i: Integer;
begin
  SetLength(Result, SizeOf(Integer));
  for i := 1 to SizeOf(Integer) do begin
    Result[i] := AnsiChar(Num);
    Num := Num shr 8;
  end;
end;