Zitat von
Muetze1:
1. wieder Result
2. Mit StrToInt() kannst du Zahlen in hexadezimaler Schreibweise konvertieren, wenn diese mit einer "$" eingeleitet werden. Sonst würde er sie in dezimaler Schreibweise konvertieren..
Delphi-Quellcode:
function MidStr(Const Str: String; From, Size: Word): String;
begin
Result := Copy(Str, From, Size)
end;
Ist gewohnheit muss mich dran gewöhnen das die rückgabe .. Result ist.
Delphi-Quellcode:
sc_aBuf : array [1..CODE_LEN] of Byte;
sc_aBuf[j] := Byte(StrToInt(MidStr('$' + sSubCode, i, 2)));
Wie oben schneidet er mit einen Wert vom string ab
Sollte '$55' sein gibt aber '$5' aus .AV
sc_aBuf[j] ist ein Array of byte.
So funktioniert das nicht.
gruß