我自己作了一个例子 
   
var
  s : string;
  i : integer;
  d : double;  myms : TMemoryStream;
begin
  myms := TMemoryStream.Create;
  try
    s := '中国';
    myms.Write(s,Length(s));
    s := 'mrlong';
    myms.Write(s,Length(s));
    i:= 90;
    myms.Write(i,sizeof(i));
    d := 9.897;
    myms.Write(d,sizeof(d));
    myms.SaveToFile('abc.test');
    
  finally
    myms.Free;
  end;end;再用winhex 打开 abc.test 的文件
 如下
   data: array[0..21] of byte = (
$68, $42, $45, $00, $78, $42, $45, $00, $8C, $F7, $5A, $00, $00, $00, $25, $06, 
$81, $95, $43, $CB, $23, $40
);反过来,如我不知写入格式, 怎么用 winhex 打开abc.test 反算出 delphi 代码来