Mixing signed expressions

[Vbxler]

Hallo an Alle!
Ich habe bei einem äterem Programm folgende Funktion verwendet:

Code: Alles auswählen

  function Konvert(const B: byte): word;
  begin
    Result:=(B and $0F) + ((B shr 4) * 10);
  end;

Die Arithmetische Operation '+' wird mit dem Hinweis versehen:
'Hint: Mixing signed expressions and longwords gives a 64bit result'

Wie kann ich das anders schreiben, oder passt das so?

Danke für eure Hilfe!

[Socke]

Wie kann ich das anders schreiben, oder passt das so?

Du kannst das prinzipiell verwenden; die Operation arbeitet aber mit 64-Bit Integer, sodass dies nur in 64-Bit-Programmen effizient abläuft.

Alternativ:

Code: Alles auswählen

function Konvert(const B: byte): word;
begin
  Result:=(B and $0F) + (Byte(B shr 4) * 10);
end;

Hier wird keine Warnmeldung ausgegeben; ich gehe davon aus, dass der Compiler für B shr 4 den Typ SmallInt festlegt (warum auch immer).

[wp_xyz]

Code: Alles auswählen

  Result:=word(B and $0F) + ((B shr 4) * 10);

[Vbxler]

Vielen Dank für eure tolle Hilfe!

Mit Word(); kommt keine Meldung mehr.