5月 8th, 2008

Delphi文件操作常用代码

Category: 程序开发, Author: admin, Popularity: 5%

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);

相关日志

Tags:, .
评论数量() | Add Comments
本文网址:http://www.9usb.net/200805/delphi-daima.html

There are No comments.

» You can leave a response

leave a reply