如何对文本文件操作

Question

创建:
var Mytextfile:Textfile;
beginassignfile(Mtextfile,'c:\textfile.txt');
rewrite(Mtextfile);
try
  writeln(Mtextfile,'test');
finally
  closefile(Mytextfile); 
end;
end;
读:begin 
  assignfile(Mytextfile,'c:\textfile.txt');
  reset(Mytextfile);
try
  while not eof(Mytextfile) do 
    readln(Mytextfile,s);
finally
  closefile(Mytextfile);
end;
end;

Answer 1

assigenfile()
rewrite()
readln()

Answer 2

好像还有很多：
但常用的可能就是：
assignfile(F_P:TFileType,filepath+fliename);
reset(F_P:TFileType);
append(F_p);
readln();
read();
write();
writeln();
eof()
bof()
closefile()
其它的你看看帮助吧

Answer 3

TStringList *text=new TStringList();
text->LoadFromFile("C:\\a.txt");
AnsiString first=text->Strings[0]->Text;//第一行
AnsiString end=text->Strings[text->Count-1]->Text;//最后一行

Answer 4

其实我对文本处理方式可能与别人的不同,上次我修改了深圳市工伤保险的投保软件,
其资料也就是文本档案.以下意见仅供参考,以免误人子弟.
我处理过程中,我发现将文本资料一次性读入memo中比较好操作,
这样你可以同各个控件联系起来不要做多大的手脚.
if  openfile.excute then  
    memo1.lines.loadformfile(openfile.filename) 
就要以了,要是保存修改结果,用
    memo1.lines.savetofile('文件名')就好了.

Answer 5

szkingrose(kingrose)的办法可行，但文本不能太大，“记事本”打不开的就不行，
最好用xiaoyu()的方法，几个M的都可以。

Answer 6

//你可以这样;
var mytxtfile:Tstringlist;
    i:integer;
    tmpline:string;
begin
 mytxtfile:=Tstringlist.create;
 mytxtfile.loadfromfile('filename.txt');
 for i:=0 to mytxtfile.count-1 do
   begin
      tmpline:=mytxtfile.strings[i]; //第i行数据
      //处理第i行数据
                              
    end;
end;