文本文件的读写？？

suiyuxing 2003-08-22 03:58:59

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

...全文

45 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

lxpbuaa 2003-08-24

打赏
举报

zjqyb() (▲▲▲▲▲ )
呵呵，我岂不知TStrings是抽象类。不过是简写罢了，使用时当然是：
var
Strs: TStrings
Strs := TStringList.Create

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

zjqyb 2003-08-22

打赏
举报

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

qiume 2003-08-22

打赏
举报

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

hare007 2003-08-22

打赏
举报

mark

kuchong 2003-08-22

打赏
举报

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

coreblood 2003-08-22

打赏
举报

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;

hailang_zh 2003-08-22

打赏
举报

var textname:TstringList;

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

zjqyb 2003-08-22

打赏
举报

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

....

ss.free

非Tstrings

lxpbuaa 2003-08-22

打赏
举报

TStrings.LoadFromFile和
TStrings.SaveToFile

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