Bits an String anfügen

[Neutral General]

Hallo,

Ich hätte da was für dich. Weiß jetzt nicht ob das für dich eleganter ist:

Delphi-Quellcode:

procedure AddInt64ToString(var S: String; Val: Int64); inline;
var OldLen: Integer;
begin
  OldLen := Length(S);
  SetLength(S,OldLen+SizeOf(Int64) div SizeOf(Char));
  Move(Val,S[OldLen+1],SizeOf(Int64));
end;

procedure TForm1.FormCreate(Sender: TObject);
var n: Int64;
    Str: String;
begin
  n := $0074006C00650057;
  Str := 'Hallo ';

  AddInt64ToString(Str,n);

  Caption := Str;
end;