Array of Byte bearbeiten

[Gehstock]

Delphi-Quellcode:

function inttochar(int:integer):char;
begin
   result:=char(int+$30);
end;

ups stimmt

Delphi-Quellcode:

var
DataSPC : Array [0..9] of Byte = ($41, $30, $30, $30, $30, $30, $30, $df, $8a, $7e);

Delphi-Quellcode:

Function SendSPC (Code : Integer):Boolean;
var
 i : Integer;
 begin
for I := 1 to 6 do
 DataSPC[i] := inttochar(code[i]); //Array Typ erforderlich deiner geht garnicht
   clr;
  sendcmd(DataSPC,sizeof(DataSPC));
end;

Edit : Erledigt