TextFile读写
来源:互联网 发布:linux kvm性能对比 编辑:程序博客网 时间:2024/05/16 17:27
function readFromFile:string;
var s,s2:string; F:TextFile;
begin
OpenDialog1.FileName:='';
OpenDialog1.Filter:='*.XML|*.xml';
s:=''; result:='';
if not OpenDialog1.Execute then exit;
assignfile(F,OpenDialog1.FileName);
try
Reset(F);
while not Eof(F) do
begin
Readln(F, s2);
s:=s+s2;
end;
result:=s;
finally
closefile(f);
end;
end;
procedure writeToFile(s:string);
var F:TextFile;
begin
assignfile(f,SaveDialog1.fileName);
try
rewrite(f);
writeln(f,s1);
finally
closefile(f);
end;
end;
- TextFile读写
- TextFile
- 文件读写工具类TextFile.java
- JAVA I/O流 (二)--一个读写文件的小工具类TextFile
- Spark textFile
- TextFile的建立
- TextFile 改样式
- 自定义textfile样例
- iOS-textfile属性
- TextFile SequencFile性能对比
- Actionscript3 TextFile的TextEvent事件
- textFile 限制 输入 字数 代码
- iOS学习 textFile的键盘
- Spark源码解析之textFile
- Spark中join,union,textFile
- hive中的TextFile转为SequenceFile
- spark学习:1.textFile函数
- spark textFile 困惑与解释
- vector方法
- ADO.NET读书笔记系列之------ADO.NET概述
- 先试一下
- Delphi 与 Excel (二)
- D3DXMatrixIsIdentity 函数
- TextFile读写
- TStrings的AddObject方法应用,以及和 PChar 的相互转化
- fileStream
- 数据补丁
- 通过代码,怎样调用IE打印呢?
- 数据压缩 -- 源码
- HTML中的数据绑定(Data Binding)
- 数据压缩 -- 应用
- .NET中的xpath