文本文件的读写？？

Question

向对文本文件进行读写操作，有方法比较好啊

Answer 1

TStrings.LoadFromFile和
TStrings.SaveToFile————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 2

var ss:TstringList;
 ss:=Tstringlist.create;
  ss.loadfromfile('ddd.txt');....ss.free 非Tstrings

Answer 3

var textname:TstringList;  textname:=Tstringlist.create;
  textname.clear;
  textname.add('XXXXXXXXX');
  textname.add('XXXXXXXXX');
  textname.add('XXXXXXXXX');
  ....
  textname.SaveToFile('c:\test.txt');
  textname.free

Answer 4

var   F: TextFile;
  S: string;
begin
  if OpenDialog1.Execute then            { Display Open dialog box }
  begin
    AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
    Reset(F);
    Readln(F, S);                        { Read first line of file }
    Edit1.Text := S;                     { Put string in a TEdit control }
    CloseFile(F);
  end;
end;

Answer 5

有回车的用tstringlist
字段是定长或变长的用tstream

Answer 6

lxpbuaa(桂枝香在故国晚秋) 的最简单

Answer 7

TStrings.LoadFromFile和
TStrings.SaveToFile如果能用Borland 要请你去了
TStrings是一个纯虚基类，不能实例化,只能用TstringList

Answer 8

zjqyb() (▲▲▲▲▲ )
呵呵，我岂不知TStrings是抽象类。不过是简写罢了，使用时当然是：
var
  Strs: TStrings
  Strs := TStringList.Create————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————