Übersetzung Class MagneticWindow

[EWeiss]

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ß