String evt. auch Unicode in ein Byte Array umwandeln

[cruiser]

ungetestet:

Delphi-Quellcode:

TBinArray = Array of Byte;

procedure StringToBinArray(const s: String; var bin: TBinArray);
var
  l: Integer;
begin
  l := Length(s);
  SetLength(bin, l);
  CopyMemory(@bin[0], @s[1], l);  
end;

procedure WideStringToBinArray(const ws: WideString; var bin: TBinArray);
var
  l: Integer;
begin
  l := Length(ws)*SizeOf(WideChar);
  SetLength(bin, l);
  CopyMemory(@bin[0], @ws[1], l);  
end;

greetz