String to Hex

[sx2008]

Glasskugel raushol....

Delphi-Quellcode:

var
  s : AnsiString;
  daten : array[0..49] of Byte;
  len : integer;
begin
  s := 'ein String mit 50 Zeichenein String mit 50 Zeichen';

  // Sicherheitsmassnahmen, damit der String nicht länger als array ist
  s := Copy(s, 1, sizeof(daten));
 
  // vom String ins Array kopieren
  Move(s[1], daten[0], Length(s));

Bei Verwendung von Move() muss man saumässig aufpassen, damit man keinen Speicher zerschiest.