有关TFileStream的问题，总调不通。。(40分)

  • 主题发起人 主题发起人 ydzi_
  • 开始时间 开始时间
Y

ydzi_

Unregistered / Unconfirmed
GUEST, unregistred user!
代码: 
var
  myStream: [0..255] of TFileStream;
  i: integer;
  str: string;
begin
  for i := 0 to 15 do
  begin
    str := 'D:/20060602_' + IntToStr(i)'
    
    try
      myStream := TFileStream.Create(str, fmOpenReadWrite);//'Cannot open file "D:/20060602_0"'. 系统找不到指定的文件。[?]
    except

    end;
  end;
end;
 
问题是什么？
 
myStream := TFileStream.Create(str, fmOpenReadWrite);//'Cannot open file "D:/20060602_0"'. 系统找不到指定的文件。[?]
 
那你看看是否有对应文件
 
没有文件当然打不开
myStream := TFileStream.Create(str, fmCreate);
 
to:Rainstorey

没有文件！

TFileStream.Create 这个不可以生成文件吗？
 
myStream := TFileStream.Create(str, fmOpenReadWrite or fmCreate);
 
TFileStream.Create(str, fmCreate)这样可以生成了就
 
filestream类的CREATER里的格式你看一下,第二个参数有很多的,有fmcreate,fmopenread,fmopenreadwrite
 
结束答案！

谢谢[:D]
 
您必须登录或注册才可回复。

Similar threads

I
彻底清除文件
回复
0
查看
569
import
I
I
多个文件压缩/解压缩到一个文件
回复
0
查看
554
import
I
I
DBGrid变换成HTML表格
回复
0
查看
766
import
I
I
何使用Delphi中的TParser语法分析器类
回复
0
查看
700
import
I
I
wave文件格式说明
回复
0
查看
532
import
I
后退
顶部