把浮点数组保存在内存流中

Question

var
  values：Array of Single
  TempStream: TMemoryStream;
  i:integer;
begin
  setLength(Values,2048);
  for i:=0 to 2047 do
    Values[i]:=2.30;
  Tempstream:=TMemoryStream.Creat;
 ...  后面的不知道怎么做了，多谢哥们，分数少，吝啬，象征性给20分吧，呵呵
 

Answer 1

var
  Values    : array of Single;
  TempStream: TMemoryStream;
  i         : Integer;
begin
  SetLength(Values, 2048);
  for i := 0 to 2047 do
    Values[i] := 2.30;
  Tempstream := TMemoryStream.Create;
  try
    Tempstream.Write(Values[0], (High(Values) + 1) * SizeOf(Single));
    ......
  finally
    Tempstream.Free;
  end;
end;