51代码网ORACLEMYSQLSQL SERVER其它数据库java/jspasp/asp.netC/C++/VC++APP应用其它语言服务器应用
您现在的位置: 51代码网 >> 其它 >> 文章正文

delphi文件读取与写入问题

更新时间:2013-8-10:  来源:51代码网

delphi文件读取与写入问题

我有一个文本文档,有若干条记录,每条记录的数据是用逗号隔开。每条记录占一行

20130301,1,2,3,4,5,6
20130302,1,2,3,4,5,6
........
现在我想把把这些记录全部读取然后写入另外一个无类型文件中,我想把每行当作一条记录,然后写入到无类型文件中去。中间肯定会用到循环,但不知道具体该如何操作

把回车换行都删掉是不是就行了。。。

procedure TfrmMain.Button1Click(Sender: TObject); Var  TestFile,WriteFile:TextFile;   FileName,WriteFileName,ReadText:string;   begin  FileName:=ExtractFilePath(Application.ExeName) + 'Test.txt';   WriteFileName:=ExtractFilePath(Application.ExeName) + 'WriteText.txt';     If Not FileExists(FileName) Then  begin    ShowMessage('文件不存在!')   end  Else  begin    AssignFile(TestFile,FileName);     Reset(TestFile);       AssignFile(WriteFile,WriteFileName);     Rewrite(WriteFile);       while not Eof(TestFile) do    begin      //读取一行       Readln(TestFile,ReadText);         //写入一行       Writeln(WriteFile,ReadText);     end;       CloseFile(TestFile);     CloseFile(WriteFile);   end;   end;

  • 上一篇文章:
  • 下一篇文章: 没有了
  • 赞助商链接
    推荐文章
  • 此栏目下没有推荐文章
  • {
    设为首页 | 加入收藏 | 友情链接 | 网站地图 | 联系站长 |