tfilesteam怎么才能显示出文本

Question

var
  TmpStream,DataStream : TFileStream ;...
    TmpStream := TFileStream.Create(DefaultDir + '上报数据\' + FileNameMake
      + '.mds',fmCreate);
    TmpStream.Write(FileInfoMake[1],length(FileInfoMake));//写入一段字符串    DataStream := TFileStream.Create(DefaultDir +'上报数据\tmp.cds',fmOpenRead);
    TmpStream.CopyFrom(DataStream,DataStream.Size);
    DataStream.Free;
    TmpStream.Free;其中mds是我自己定义的文件格式，如果要创建文本文件，只要把文件名和后缀名写上即可。