ungültige Typenumwandlung Single- Byte

[Virchov]

Morgen, meine Herrschaften!

Wieder mal eine kleene Frage von Virchov:

Ich habe in c++- Code diese Zeile hier:

NormalisedV:= BYTE (roiHistogram[idx] * ( single(MAXBYTE) div single(roiHistogramMax)) );

Die ich naturgemäß folgendermaßen in Delphi übersetzt habe:

Delphi-Quellcode:

var 
.....
Normalisedv:BYTE;
....

begin 
.....
.....
 NormalisedV:= BYTE(roiHistogram[idx])*  ( (single(MAXBYTE) / single(roiHistogramMax) );
....
....
end;

Der hochgepriesene Compiler moniert, ich hätte zweimal in dieser Zeile ungültige Typenumwandlung zugelassen. Könnte mir jemand in diesem Unheil behilflich sein?

Vielen Dank!

[Virchov]

Wohljemerkt: roiHistogram ist ein array of BYTE, MAXBYTE ist eine Windowskonstante und roiHistogramMax
müsste gleichwohl ein array of BYTE sein

[Sharky]

Hai Virchov,

nur eine kleine Anmerkung. Du kannst, um deine Beiträge zu ergängen, diese innerhalb von 24 Stunden editieren und musst keinen neuen Beitrag darunter setzen.

[Virchov]

Ich habe eine interessante Sache feststellen müssen:


roiHistogramMax wurde früher als static BYTE deklariert. Nun habe ich static weggenommen, da in delphi soetwas wie "static" anscheinend nicht existiert.... Oder doch?

alles klar, Scharky, mach ich.

Helft, doch, bitte, einem von Wirren Welten des Programmierens benommenen Geisteswissenschaftler

[Virchov]

So sieht es aus in meiner Endfassung, geht aber trotzdem nicht. Die Reaktion des Compilers bleibt unverändert:


NormalisedV:= BYTE (roiHistogram[idx] * ( single(MAXBYTE) div single(roiHistogramMax)) );

[Virchov]

So ging es aber:

Delphi-Quellcode:

NormalisedV:= BYTE (roiHistogram[idx] *  ( (*single*)(MAXBYTE) div (*single*)(roiHistogramMax) );

Geht da keine Information über die Genauigkeit der Variableninhalte verloren? Meines Wissens, nicht...

[dizzy]

Zitat von Virchov:

NormalisedV:= BYTE (roiHistogram[idx] * ( (*single*)(MAXBYTE) div (*single*)(roiHistogramMax) );

Ich nehme an:
NormalizedV : Byte
roiHistogram : array of Byte
MAXBYTE : Byte
roiHistogramMax : Byte

"/" ist in Delphi der Disivionsoperator für Fließkommawerte, und "div" für Ganzzahlenwerte. Byte ist immer ganzzahlig. Bei einer "div"-Division gehen Informationen verloren, z.B. bei 10 div 3. Das Ergebnis bei "div": 3 (es wird immer abgerundet!) und bei "/": 3.3333...

Wenn du das Ergebnis ordentlich gerundet (ab n.5 aufgerundet), dann mach es am besten so:
NormalizedV := round(roiHistogram[idx] * (MAXBYTE / roiHistogramMax)); Der Typecast nach "single" weiter oben war unnötig. Das Problem ist, dass eine "/"-Division IMMER ein Ergebnis vom Typ "double" liefert, und so keinem "Byte" zugewiesen werden kann. Daher muss man vorher Casten. Entweder so wie du oben mit BYTE(...) (Wird abgerundet), oder eben mit round(...). Es ginge auch noch trunc(...) (auch hier wird abgerundet/der Nachkommaanteil einfach abgeschnitten).
Oder man verzichtet GANZ auf Casts und macht's mit dem "div"-Operator:
NormalizedV := roiHistogram[idx] * (MAXBYTE div roiHistogramMax); Diese Zeile sollte ebenfalls gültig sein, allerdings wird eben nur abgerundet.



Hoffe, das war verständlich...


gruss,
dizzy