不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

急：到底怎样才能将一个*.txt文件中的数据读入我的变量中？

楼主haoliangli（bob999）2001-06-01 23:50:00 在 Delphi / VCL组件开发及应用提问

盼高人回复！！！
最好附上例子，非常感谢。问题点数：40、回复次数：22Top

1 楼haoliangli（bob999）回复于 2001-06-02 00:03:00 得分 0

盼关注！Top

2 楼chenshirong（抱琴）回复于 2001-06-02 00:10:00 得分 38

var strs:TString;

strs:=TString.Create;
strs.LoadFromFile('yourfile.txt');

Top

3 楼chenshirong（抱琴）回复于 2001-06-02 00:12:00 得分 0

sorry !
var strs:TStrings;

please try!
Top

4 楼haoliangli（bob999）回复于 2001-06-02 00:34:00 得分 0

用TStringList对象的CommaText属性似乎可以这个，但CommaText属性中的值需为单引号括起来才可以将其中值自动赋给Strings[0]、Strings[1]等，但现在情况为：
当调用TStringList对象的LoadFromFile方法后（即打开了这个*.txt文件后）， TStringList对象的CommaText属性默认为加有双引号的，如本来*.txt中数据为
1 2 3
现在TStringList对象的CommaText属性变成了“1 2 3”
这样的话，我怎么将这个CommaText属性变为 ‘1 2 3’ 以便将值赋给Strings[0]、Strings[1]等以作处理？？？

急急急！！！
盼高人回答！分不够再加！！！Top

5 楼haoliangli（bob999）回复于 2001-06-02 00:50:00 得分 0

TO chenshirong()　：
也可能是你说的不够详细，我试了你的方法，不行，能不能说详细点？

另外，刚才的我说的方法来源于两位CSDN上朋友，在此谢了。（盼你们看到这个帖子后继续回贴）Top

6 楼chenshirong（抱琴）回复于 2001-06-02 00:54:00 得分 0

var str:TStringList;

strs:=TStringList.Create;
srts.LoadFromFile('file.txt');

已经将文件中的内容读入到strs.strings中了，txt文件中的第一行读入到strings[0],第二行读入到strings[1]，等，直接使用即可。
sorry ,刚才一个没注意，将TstringList写成了Tstrings.
please try again!
Top

7 楼chenshirong（抱琴）回复于 2001-06-02 00:59:00 得分 0

可以加一个Memo组件，用
　　Memo1.Lines.AddSrtings(strs)
将内容显示在Memo中查看是否正确。应该不会有问题了。　Top

8 楼haoliangli（bob999）回复于 2001-06-02 01:10:00 得分 0

仍步行，错误发生在
Memo1.Lines.AddSrtings(strs) 行，打开文件时DELPHI说是文件读入错误。
多谢chenshirong()的回复！Top

9 楼haoliangli（bob999）回复于 2001-06-02 01:12:00 得分 0

希望上午继续。：）Top

10 楼chenshirong（抱琴）回复于 2001-06-02 01:12:00 得分 0

不会吧，我刚试过的！Top

11 楼haoliangli（bob999）回复于 2001-06-02 14:08:00 得分 0

不好意思，我写错了。可以运行。
但仍未能解决根本问题：究竟怎样才能将其读入我已预先定义好的变量中？？？
如将文件 1 2 3 读入 a=1, b=2, c=3
???
多谢回复！！！Top

12 楼haoliangli（bob999）回复于 2001-06-02 14:23:00 得分 0

急急急！！！
盼各位大侠回复！！！Top

13 楼airhorse（编程至尊宝）回复于 2001-06-02 14:31:00 得分 0

你还不如,用ini文件很方便.Top

14 楼haoliangli（bob999）回复于 2001-06-02 20:54:00 得分 0

TO:airhorse(编程至尊宝)　
如何用ini文件？能不能说详细点？
非常感谢！Top

15 楼haoliangli（bob999）回复于 2001-06-03 14:08:00 得分 0

望关注Top

16 楼chenshirong（抱琴）回复于 2001-06-03 17:04:00 得分 0

稍等！Top

17 楼chenshirong（抱琴）回复于 2001-06-03 17:10:00 得分 0

使用文本文件的读写:
设有文本文件yourfile.txt:
1 2 3 ...

则可

var f:TextFile;
　　a,b,c:interger;

AssignFile(f,'yourfile.txt')
reset(f);
read(f,a,b,c);
...
CloseFile(f);
...

Top

18 楼airhorse（编程至尊宝）回复于 2001-06-03 17:11:00 得分 1

不会吧：看看相关（Tinifile类）帮助吧，很简单的拉， Top

19 楼chenshirong（抱琴）回复于 2001-06-03 22:44:00 得分 0

! Top

20 楼Cappuccino（加奶的咖啡）回复于 2001-06-03 22:46:00 得分 1

最好用readln,但是一定要用try...finally,保证吧打开的文件关闭Top

21 楼haoliangli（bob999）回复于 2001-06-03 23:05:00 得分 0

TO:chenshirong():
我刚才在试，终于把变量读进来了！真是太谢谢你了！分数送上！：）
还有，这个问题是我对现有问题的简化，以后可能还要请教:chenshirong大侠！再次感谢！
（可否告知邮箱？）
Top

22 楼haoliangli（bob999）回复于 2001-06-03 23:09:00 得分 0

怎么送不了分了？——点击管理，不能送分！梢候，我再试！Top