2 Word zu einer Single

**TeronG**

Hallo

Ich habe das Problem über einen Modbus einen Real auszulesen.
Da der Modbus keine Real mag habe ich einfach die Gleitkommazahl (32bit) in 2 Words (a 16bit) Zerlegt und übertrage einfach diese.

Nun ist mein Problem, das ich die in Delphi nicht wieder zusammen und dann in eine real/float/Single bekomme.

Einfach mal das 2te Word nach links schieben (shl 16) und dann das Erste dazuaddieren und zu einer Single machen klappt ja schon aber dann habe ich nur eine sehr große Ganzzahl und nicht meine real ... *gruebel*

Das selbe Problem musste ich schon mal in C# lösen ... da gabs so nen schönen BitConverter hat Delphi sowas auch!?

Habt ihr da ne idee wie das klappen könnte?

**chaosben**

Ich würde das per absolute lösen

markieren

Delphi-Quellcode:

			procedure Bla;

var

  MyInt : Integer;

  MySingle : Single absolute MyInt;

begin

  MyInt := (Word1 shl 16) + Word2;

  //et voila ... MySingle hat den gewünschten Wert

end;

Hintergrund: Durch die absolute-Direktive stehen beide Variablen im Speicher an der gleichen Stelle.

**TeronG**

Thanks
Cool ...

Und ich habe schon befürchtet ich müsse (manuel) Pointer verbiegen oder gar das Single bitweise setzen.

**guinnes**

Oder als VariantenRecord :

zusammenfalten · markieren

Delphi-Quellcode:

			Type

  TWordSingle = Record

    case Integer of

      1  : (Words : Array[0..1] of Word);

      2  : (SingleValue : Single);

  end;

....

WordSingle.Words[0] := Word1;

WordSingle.Words[1] := Word2;

Result := WordSingle.SingleValue;

**TeronG**

Klappt beides recht fein.

Interesanterweise wird 12,34 in 12,3400001525879 umgewandelt.
Was mich (beim REAL) nicht wirklich verwundert stört.
Mit dem BitConverter habe ich allerdings ein 12,34 zurückbekommen ... ob da wohl einer rundet. -.-"

**himitsu**

Single und eigentlich alle Fließkommatypen runden nunmal alle, bedingt durch ihre interne Darstellung.

Und so schwer ist das mit den Pointern nun auch nicht.

markieren

Delphi-Quellcode:

			var L: LongWord;

  S: Single;

S := PSingle(@L)^;

**TeronG**

Naja .. schwer mag das nicht sein aber ..
a) mag ich Pointer eigentlich nicht und
b) habe ich wegen a keine übung/erfahrung mit pointern.

2 Word zu einer Single

2 Word zu einer Single

Re: 2 Word zu einer Single

Re: 2 Word zu einer Single

Re: 2 Word zu einer Single

Re: 2 Word zu einer Single

Re: 2 Word zu einer Single

Re: 2 Word zu einer Single

Forumregeln

TeronG Registriert seit: 19. Jul 2004 Ort: München 960 Beiträge Delphi 2007 Professional	#3 Re: 2 Word zu einer Single 5. Mai 2010, 14:00 Thanks Cool ... Und ich habe schon befürchtet ich müsse (manuel) Pointer verbiegen oder gar das Single bitweise setzen. 龍 Der Unterschied zwischen Theorie und Praxis ist in der Praxis größer als in der Theorie.
	Zitat

guinnes Registriert seit: 28. Feb 2007 Ort: Bottrop 265 Beiträge Delphi 5 Enterprise	#4 Re: 2 Word zu einer Single 5. Mai 2010, 14:15 Oder als VariantenRecord : zusammenfalten · markieren Delphi-Quellcode: Type TWordSingle = Record case Integer of 1 : (Words : Array[0..1] of Word); 2 : (SingleValue : Single); end; .... WordSingle.Words[0] := Word1; WordSingle.Words[1] := Word2; Result := WordSingle.SingleValue; Glückauf
	Zitat

TeronG Registriert seit: 19. Jul 2004 Ort: München 960 Beiträge Delphi 2007 Professional	#5 Re: 2 Word zu einer Single 5. Mai 2010, 14:25 Klappt beides recht fein. Interesanterweise wird 12,34 in 12,3400001525879 umgewandelt. Was mich (beim REAL) nicht wirklich verwundert stört. Mit dem BitConverter habe ich allerdings ein 12,34 zurückbekommen ... ob da wohl einer rundet. -.-" 龍 Der Unterschied zwischen Theorie und Praxis ist in der Praxis größer als in der Theorie.
	Zitat

himitsu Registriert seit: 11. Okt 2003 Ort: Elbflorenz 44.373 Beiträge Delphi 12 Athens	#6 Re: 2 Word zu einer Single 5. Mai 2010, 15:00 Single und eigentlich alle Fließkommatypen runden nunmal alle, bedingt durch ihre interne Darstellung. Und so schwer ist das mit den Pointern nun auch nicht. markieren Delphi-Quellcode: var L: LongWord; S: Single; S := PSingle(@L)^; Ein Therapeut entspricht 1024 Gigapeut.
	Zitat

TeronG Registriert seit: 19. Jul 2004 Ort: München 960 Beiträge Delphi 2007 Professional	#7 Re: 2 Word zu einer Single 6. Mai 2010, 07:43 Naja .. schwer mag das nicht sein aber .. a) mag ich Pointer eigentlich nicht und b) habe ich wegen a keine übung/erfahrung mit pointern. 龍 Der Unterschied zwischen Theorie und Praxis ist in der Praxis größer als in der Theorie.
	Zitat