5月 8th, 2008

Delphi文件操作常用代码

1>载入文件的实现方法
var
ts:tstring;
begin
ts:tstinglist.creat;
ts.loadfromfile(’文件的绝对路径’); //调用文件
2>文件夹操作
uses filectrl;
procedure ForceDirectorys(dir:string)
//一次建立指定的多级文件夹
function DirectoryExists(Name: string): Boolean;
// 指定文件夹是否存在
function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint):Boolean;
// 打开一个选择文件夹的对话框(英文的)
—————————————————————-
var mytextfile:textfile;
begin assignfile(mytextfile,’mytextfile.exe’);
reset(mytextfile);//rewrite()创建并打开文件（已有就覆盖），reset()以只读方式打开文件，append()以追加方式打开文件；
try
//可以加一句while nit eof(mytextfile) do;
{
//操作文件
for i:=1 to 5 do
begin s:=’This is line #’;
writeln(mytextfile,s,i);//结果被创建的文件中包含 this is line # 1……this is line # 5
//writeln()为往指定文件中写东西，还有readln(mytextfile,s,i)从指定的文件中读数据;
end;
}
finally
closefile(mytextfile);
end;
end;
————————————————————————
3>创建路径
USES FileCtrl;
if not DirectoryExists(ExtractFilePath(paramstr(0)) + ‘ElectronicBill\’) then
CreateDir(ExtractFilePath(paramstr(0)) + ‘ElectronicBill\’);
fileexists();判断文件是否存在。
4>选择一个路径
USES FileCtrl;
SelectDirectory(’请选择存储路径！’, ‘我的电脑’, sSavePath);