How to write Single (ie float 32 bit) in a TMemoryStream

[andresayang]

Hi all,

Well the title says everything ... I need to write a 32Bit IEEE float (single) to a TMemoryStream, How to do that ?
Or Is there any function which transform a Single to a QWord ?

Thanks a lot,

Andre

Ok, sorry, I can not delete my post si I think I find it, using TSingleHelper should do the job.

[Thaddy]

Code: Pascal  [Select][+][-]

1. {$mode objfpc}
2. uses classes;
3. var
4.   Stream:TMemoryStream;
5.   S:Single = 0.0001;
6. begin
7.   Stream := TMemoryStream.Create;
8.   try
9.     Stream.Write(S, SizeOf(S));
10.     Stream.Position := 0;  // reset stream;
11.     S:= 0.0; //reset S;
12.     Stream.Read(S, SizeOf(S)); // Read it back
13.     Writeln(S :1:4); // Check if it worked
14.   finally
15.     Stream.Free; // Release the stream;
16.   end;
17. end.

[Thaddy]

Ok, sorry, I can not delete my post si I think I find it, using TSingleHelper should do the job.

Not necessary as per my example It is as simple as that.

[andresayang]

Thanks a lot,

Your example is really simple !

And tested, got expected result, thanks.


Cheers

[Bart]

Ok, sorry, I can not delete my post si I think I find it, using TSingleHelper should do the job.

TFloatHelpers are broken, see issue #32837.

Bart

[Thaddy]

TFloatHelpers are broken, see issue #32837.

Bart

That's why I did not use them in my example...

(Others plz note they are not really broken...but Bart has a point in that bug report)