Array of Byte bearbeiten

[Gehstock]

Delphi-Quellcode:

Function SendSPC (Code : Integer):Boolean;
const                     //   id    1    2    3    4    5    6    check   end
 Data : Array [0..9] of Byte = ($41, $30, $30, $30, $30, $30, $30, $df, $8a, $7e);
var
 i : Integer;
begin
for I := 2 to 7 do // Stellen im Array
 Data[i] := inttochar(code[i]);
   clr;
  sendcmd(Data,sizeof(Data));
end;

hab da grad nen Hänger
also übergeben wird eine 6 stellige zahl (code)
stelle 1 von (code) soll im Array n 2. Stelle usw.

[DeddyH]

1. Du willst eine Konstante ändern?
2. Data[i] := inttochar(code[i]); --> Data[i] := inttostr(code)[i - 1];

Ungetestet!

[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

[DeddyH]

Sry, mein Fehler.Data[i] := Ord(inttostr(code)[i - 1]) - $30; Geht das so?

[Gehstock]

Wirft keine Fehler aber das Ergebnis passt nicht

[dominikkv]

Code ist vom Typ Integer, ist also kein Array und kann auch nicht mit Code[i] angesprochen werden!

[DeddyH]

Nach InttoStr(code) ist code kein integer mehr.

[dominikkv]

Zitat von DeddyH:

Nach InttoStr(code) ist code kein integer mehr.

ja klar, dein code ist auch richtig, ich hab mich aber auf die ersten posts bezogen

[DeddyH]

Achso, dann hab ich nichts gesagt