delphi的文件操作

1、Delphi中拷贝文件的几种方法
广告
{方法一:用File stream }
Procedure FileCopy( Const sourcefilename, targetfilename: String );
Var
S, T: TFileStream;
Begin
S := TFileStream.Create( sourcefilename, fmOpenRead );
try
T := TFileStream.Create( targetfilename,fmOpenWrite or fmCreate );
try
T.CopyFrom(S, S.Size ) ;
finally
T.Free;
end;
finally
S.Free;
end;
End;
{ 方法二:使用内存块进行读写 }
procedure FileCopy(const FromFile, ToFile: string);
var
FromF, ToF: file;
NumRead, NumWritten: Word;
Buf: array[1..2048] of Char;
begin
AssignFile(FromF, FromFile);
Reset(FromF, 1);
AssignFile(ToF, ToFile);
Rewrite(ToF, 1);
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(FromF);
CloseFile(ToF);
end;
2、控制INI文件
要利用.INI文件做程序有关数据的存储工作,就需要能读和写.INI文件,所以列了如下
方法给大家参考:
{方法一:用 Windows API 函数}
① 从.INI文件中获取字符串
var
strResult:array[0..30] of Char;
begin
GetPrivateProfileString(' desktop ', 'wallpaper',
'c:\windows\newwall.bmp' , strResult, 100, 'c:\windows\win.ini' );
edit1.text:=strResult; //显示取得字符串 end;
② 从.INI文件中获取整数
var
nResult: integer; begin
nResult := GetPrivateProfileString(' desktop ', ' tilewallpaper',
0 , 'c:\windows\win.ini' );
edit1.text:=intostr(nResult); //显示取得整数 end;
③ 向.INI文件写入字符串
WritePrivateProfileString('desktop', 'wallpaper',
strWrite ,'c:\windows\win.ini');
{ 方法二:使用TiniFile进行读写 }
① 从.INI文件中读字符串
var MyIni: TIniFile;
begin
MyIni := TIniFile.Create('c:\windows\win.ini');
edit1.text:=MyIni.ReadString('Desktop', 'Wallpaper', '');
end;
② 向.INI文件中写入字符串
var MyIni: TIniFile;
begin
MyIni := TIniFile.Create('c:\windows\win.ini');
MyIni.WriteString('desktop', 'wallpaper', 'c:\a.bmp');
end;
3、用Delphi实现将纯文本资料转入数据库
在我们日常工作中,常会碰到这样一个难题:一大堆收集好的纯文本格式,比较规整的
资料怎样才能将它们分离,转到自己已经建好的数据库中进行管理呢?例如,有一段人
事档案资料document.txt,内容如下:
张强,25,助理工程师,
王宏,30,工程师,
李远,45,高级工程师,
要将它转入数据库中,document.db结构如下:
姓名,年龄,职称
怎么办呢?现在通过使用delphi编程,很好地解决了这个难题。Delphi提供了许多功能
强大,丰富的字符处理函数和过程,常用的有:
① function Length(S:String):Integer  //返回串的长度
② function Copy(S:String; Index,Count: Integer):String
//给出一个字符串中串的拷贝
③ function Pos(Substr:String; S:String); Integer  
//查找子串在字符串中的位置
④ Procedure Delete(Var S:String; Index,Count: Integer);
//从一个字符串中去除子串
利用Delphi提供的已有函数和过程基础上编制自己的三个函数,实现了纯文本格式资料
转入数据库功能。只要Delphi支持的数据库都可以支持。
Document.txt中每行数据为一个字符串,字符串中每个被分割的数据为一个字段,分割
每个字段的字符为分割符,这里是逗号,也可以是、;#等符号。具体思想是:先将字符
串进行调整,然后把串中每个字符同分割符比较,将不是分割符的字符追加到MyStr串中
,最后得到一个字段的内容。通过一个循环,就可以将一个字符串分成几个字段。
Function GetSubStr(var aString:string; SepChar:String): String;
//得到字符串中一个子串
因要改变参数aString的值,所以将它用var定义。
Function GetSubStrNum(aString, SepChar: String): Integer;
//计算一个字符串要被分割成几个字段。
参数:aString是所需分割的一个字符串,
SepChar是分割符。
Function GetSubStrNum(aString:String;SepChar:String):integer;
var
i:Integer;
StrLen:Integer;
Num:Integer;
begin
StrLen:=Length(aString);
Num:=0;
For i:=1 to StrLen do
If Copy(aString,i,1) = SepChar then
Num:=Num+1;
result:=Num;
end;
Function GetSubStr(var aString:String;SepChar:String):String;
var
Mystr:String;
StrLen:Integer;
SepCharPos:Integer;
begin
StrLen:=Length(aString);
SepCharPos:=Pos(SepChar,aString); //计算分割符在子串中的位置
MyStr:=Copy(aString,1,SepCharPos-1); //将分割符前所有字符放到mystr串中
Delete(aString,1,SepCharPos); //除去分割符和分割符前的子串
GetSubStr:=MyStr; //返回一个字段
end;
有了上面三个函数,现在介绍一下具体的应用:
① 首先建立一个窗体Forml,加入一个RichEditl(或Menol),一个按钮Buttonl和一个
Tablel,设置Tablel的属性:
Tablell.DataBaseName:= 'c:\test';
Tablell.TableName:= 'document.db';
② 分别加入以下程序:
const
SepChar=',' ;
procedure TForm1.FormCreate(Sender: TObject);
begin
RichEdit1.Lines.LoadFromFile('c:\test\test.txt');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,num:Integer;
MyLine:String;
item:array[1..3] of string;
begin
For i:=0 to RichEdit1.Lines.Count-1 do
begin
MyLine:=Richedit1.Lines[i];
num:=GetSubStrNum(myline,SepChar);
for j:=1 to num do
item[j]:=GetSubStr(myline,SepChar);
table1.open;
with table1 do
begin
table1.insert;
table1name.Asstring:=item[1];
table1age.Asinteger:=strtoint(item[2]);
table1title.Asstring:=item[3];
table1.post;
end;
table1.close;
end;
end;

posted on 2006-09-11 10:16 青蛙學堂 阅读(776) 评论(0)  编辑 收藏 引用 所属分类: 軟件布袋

只有注册用户登录后才能发表评论。
<2006年9月>
272829303112
3456789
10111213141516
17181920212223
24252627282930
1234567

导航

统计

常用链接

留言簿(8)

随笔分类

随笔档案

收藏夹

青蛙学堂

最新评论

阅读排行榜

评论排行榜