RSS订阅 | 匿名投稿
您的位置:网站首页 > 文件 > 正文

Delphi 对Txt文件的操作

作者:admin 来源:未知 日期:2010/5/21 15:33:11 人气: 标签:

program Tex;
{$APPTYPE CONSOLE}
{By:天下第一小贱人}
uses
Windows;

{新建一个TXT文档}

Procedure NewTxt(FileName:String);
Var
F : Textfile; {定义 F 为 Textfile}
Begin
AssignFile(F,FileName); {将文件名与变量 F 关联}
ReWrite(F); {创建Txt文档并命名为 “FileName ” }
Closefile(F); {关闭文件 F}
End;


{读取指定的TXT文档}
Procedure ReadTxt(FileName:String);
Var
F : Textfile;
Str : String;
Begin
AssignFile(F, FileName);
Reset(F);
Readln(F, Str); {读取内容并赋值给 Str}
Closefile(F);
End;

{先附上原内容在写入新内容}
Procedure AppendTxt(Str:String;FileName:String);
Var
F:Textfile;
Begin
AssignFile(F, FileName);
Append(F); {附上原来的内容以免原内容被清空}
Writeln(F, Str); {把内容 Ser 写入文件F }
Closefile(F);
End;



{逐行读取,顾名思义一行一行的读取内容}
Procedure ForTxt(FileName:String);
Var
F:Textfile;
S:String;
Ser:String;
begin
AssignFile(F,FileName);
Reset(F);
while not EOF(F) do {循环读取}
begin
Readln(F,S);
Ser:=Ser+S+#13#10;
end;
CloseFile(F);
end;


Begin
// NewTxt('i:\我的文档\桌面\Delphi对Txt的基本操作.Txt');
// ForTxt('i:\我的文档\桌面\Delphi对Txt的基本操作.Txt');
// ReadTxt('i:\我的文档\桌面\Delphi对Txt的基本操作.Txt');
// AppendTxt('aaaaaaaaaaaaaaaaa','i:\我的文档\桌面\Delphi对Txt的基本操作.Txt');
Readln;
End.
读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: