Verzweifelter Versuch BCD-Zahlen in Integer zu wandeln.

[DelphiRacer]

Versuche mit der Funktion "BcdToInteger" einen BCD-Wert(logisch?!)
(4stellig) in einen Integerwert zu wandeln.
Hat jemand einen "Source" Vorschlag?
Danke. :shock:
Ups..hat natürlich in dieser Rubrik nichts zu suchen... :lol:

[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;