| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> 数据库专区 斑竹:liumazi,waterstone | |||||
| 作者： |
|
2004/1/18 12:02:15 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | AssignFile(F, 'c:\abc.txt'); Reset(F); flopen:=true; if (flopen) and (not eof(f)) then begin readln(f,s); memo1.lines.text:= trim(s); end; abc.txt文件的格式为 2500 1300 2750 1158 ....... 在每一行后都有一个回车. 可是上面这段程序只读了一行就停了.可是我用HEX打开过文本文件并没有发现有结束符呀. 请各位有经验的DX指点一下. ---------------------------------------------- 初出茅庐的小子请大家多照顾. |
|||||
| 作者： |
|
2004/1/18 19:21:55 | ||||
| 1楼： | while (flopen) and (not eof(f)) do begin ReadLn(f, s); memo1.Lines.Text:= trim(s); end; ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/1/18 19:33:03 | ||||
| 2楼： | sephil, 谢谢你, 已经搞定. 可有些想不通的时候,我原来也是这样写的不行,后来改成了IF, 是不是我太想着过年放假了,什么事情做起来都没心思?  ---------------------------------------------- 初出茅庐的小子请大家多照顾. |
|||||
| 信息 |
| 登陆以后才能回复 |
