Übersetzung Class MagneticWindow

[EWeiss]

Geht jetzt!
Waren ein paar probleme mit der Schleife.

Delphi-Quellcode:

        //Convert the string from hex pairs to bytes and store in the machine code buffer
        i := 1;
        j := 0;

         While j < CODE_LEN Do
          begin
            inc(j);
            sc_aBuf[j] := Byte(StrToInt('$' + MidStr(sSubCode, i, 2))); //Convert a pair of hex characters to an
                                                   //eight-bit value and store in the static code buffer array
            i := i + 2;
          end;

gruß