Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.316 Beiträge
Delphi 12 Athens
|
AW: Move() von PAnsiChar in ein Array Of Byte
18. Jun 2010, 08:35
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;
Ein Therapeut entspricht 1024 Gigapeut.
|