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;