Move() von PAnsiChar in ein Array Of Byte

[himitsu]

Funktioniert problemlos.

Delphi-Quellcode:

var thisEvent_Sysex: PAnsiChar;
  thisEvent_SysexLength: Integer;
  SysExArray: Array of Byte;

procedure TForm1.FormCreate(Sender: TObject);
begin
  thisEvent_Sysex := #$F0#$7E#$00#$06#$01#$F7;
  thisEvent_SysexLength := 6;
  SetLength(SysExArray, thisEvent_SysexLength);
  Move(thisEvent_Sysex^, SysExArray[0], thisEvent_SysexLength);
  ShowMessage(ByteArrayToHexString(SysExArray));
end;