Verzweifelter Versuch BCD-Zahlen in Integer zu wandeln.

[Robert Marquardt]

Direkt hier eingehackt:

Delphi-Quellcode:

function BCDToInteger(BCD: Cardinal): Integer;
begin
  Result := 0;
  while BCD <> 0 do
  begin
    Result := Result *10;
    Result := Result + (BCD and $F);
    BCD := BCD shr 4;
  end;
end;