fileStream
来源:互联网 发布:rellakinoko 知乎 编辑:程序博客网 时间:2024/05/14 13:31
procedure TForm1.Button1Click(Sender: TObject);
var
f1:TFileStream;
filename:String;
begin
OpenDialog1.Execute ;
filename:=OpenDialog1.FileName ;
f1:=TfileStream.Create (filename,fmopenread);
try
RichEdit1.Lines.LoadFromStream(f1);
f1.Position:=0;
Memo1.Lines.LoadFromStream(f1);
finally
f1.free;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var f1:TFileStream;
filename:string;
begin
savedialog1.Execute ;
filename:=saveDialog1.FileName ;
f1:=TFilestream.Create (filename,FmCreate);
try
RichEdit1.Lines.SaveToStream (f1);
finally
f1.Free ;
end;
end;
fmCreate 如果文件存在,那么将打开用于写访问,否则会创建新文件。其他的常量都声明在 SysUtils 单元,而这个常量声明在 Classes 单元中
fmOpenRead 仅以读访问方式打开
fmOpenWrite 仅以写访问方式打开
fmOpenReadWrite 以读写访问方式打开
fmShareCompat 和FCB打开的方法兼容。不要在跨平台应用程序中使用这个模式
fmShareExclusive 读写访问被拒绝
fmShareDenyWrite 写访问被拒绝
fmShareDenyRead 读访问被拒绝。不要在跨平台应用程序中使用这个模式
fmShareDenyNone 允许其他代码进行完全的访问
- fileStream
- fileStream
- FileStream
- FileStream Close
- FileStream类
- FileStream实例
- 套接filestream
- FileStream类
- FileStream使用
- FileStream StreamWriter
- 启用FILESTREAM
- FileStream类
- FileStream类
- fileStream操作
- Stream/FileStream
- filestream 用法
- FileStream流
- FileStream类
- J2ME中文教程 4 MIDP低级UI的使用
- J2ME中文教程 5 MIDP的持久化解决方案
- 算法中的精确时间计数器的应用
- 看马大帅3
- J2ME中文教程 6 GAME API
- fileStream
- >中感动我的台词
- 把库存的商品热销出去----zt
- QQ签名分析与感想(哥们版)
- 获得光标在文本区中的行列位置
- DENX U-Boot及Linux使用手册
- WinInet 下载文件示例
- 美國務院要求確認廢統 呂:應是誤解!
- FrontPage 建立在网站根目录下的特殊目录、文件列表及用途(1)