delphi中的文件流怎么转换成文本文件？

Question

哈哈！管他什么格式。不过不一定能打开看清楚啊！FileStream.SaveFile('c:\111.txt');

Answer 1

对，用上面的强制解决先loadfromfile/loadfromstream  把流读入在streamsavetofile('asdf.txt')扩展名可以换的。

Answer 2

FileStream.SaveToFile('c:\111.txt');

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var FileStream: TFileStream;
    MemoryStream: TMemoryStream;
begin
  if OpenDialog1.Execute then
  begin
    FileStream := TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
    MemoryStream := TMemoryStream.Create;
    MemoryStream.CopyFrom(FileStream,FileStream.Size);
    MemoryStream.SaveToFile('C:\111.txt');
    MemoryStream.Free;
    FileStream.Free;
  end;
end;

Answer 4

喂，大家搞清楚阿
filestream有SaveToFile这个method？！用TMemoryStream！

Answer 5

var s:TMemoryStream;
begin
   s.SaveToFile(FileName);

Answer 6

不行耶。
在这句有错误：stream2.Savetofile('C:\111.txt');
出现‘stream read error'.