怎么用memo一行行的显示文本文件中的内容。

煜知搬砖者 2001-10-13 08:40:46
文本文件中是一行的纪录:如下:
9.95178
4.88231
8.19456
6.45443
4.79758
7.57071
9.72289
1.41951
3.71803
6.43871
可是用下面的程序,却只能这样显示:
9.95178 4.88231
8.19456 6.45443
4.79758 7.57071
9.72289 1.41951
3.71803 6.43871

程序如下:
var s:string[150];
i,j:real;
MyFile:TextFile;
begin
AssignFile(Myfile,'f:\exam\t2.txt');
reset(Myfile);
try
while not Eof(Myfile) do
begin
Readln(Myfile,s,j);
Memo1.Lines.Add(s+' '+floattostr(j));
end;
finally
closeFile(MyFile);
end;
...全文
165 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
煜知搬砖者 2001-10-16
  • 打赏
  • 举报
回复
ok
dedema 2001-10-13
  • 打赏
  • 举报
回复
啊。。。。好不容易有我懂的。怎么别人己经答了?
煜知搬砖者 2001-10-13
  • 打赏
  • 举报
回复
错了,对不起,是用二位数组得到memo上的十六个数,该如何做?]
winglion 2001-10-13
  • 打赏
  • 举报
回复
inttostr(memo1.lines[i]);//i=0..9;
煜知搬砖者 2001-10-13
  • 打赏
  • 举报
回复
那么该怎么用一个一维数组得到这十个数?请教了
Bob7946 2001-10-13
  • 打赏
  • 举报
回复
这样用:
Memo1.Lines.LoadFromFile(YourFileName);
就行了

5,939

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧