文本读\写操作??/

Question

如何将以下一个文本的内容分割开3个TXT文件:
1,123,1321231321,
1,255,5456456456,
1,212,5456456456,
3个TXT文件分别以中间的3个数字命名
文本1的内容:1,123,1321231321,
文本2的内容:1,255,5456456456,
文本2的内容:1,212,5456456456,

Answer 1

文文文件作为简单的基础知识
自己看看书就得了AssignFile
Reset
Write/read
CloseFile或 TStringList都可以

Answer 2

var f,ftemp:text;procedure ***********;
var
  i: integer;//循环变量
  tempstr: string;//临时字符串，用来存一行文本
begin
assign(f,'filename that you have defined!');//制定源文件
reset(f);//以只读方式打开源文件，并且把文件指针指到文件头
for i:=0 to 2 do //按照你的要求循环3次来生成文件名
beign
  assign(ftemp,'fileheader name'+inttostr(i));//按照循环变量来生成文件名
  rewrite(ftemp); //小心这条语句将会清空要写入的文件。如果想要追加可以用append(ftemp)
  readln(f,tempstr);//从源文件读出一行
  writeln(ftemp,tempstr);//向目标文件写入一行
  close(ftemp);//关闭目标文件
end;
close(f);//关闭源文件
end;应该没有问题的，我不是在IDE下写的。注释应该可以了吧。