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.