假设E盘有一文件1.txt,内容为:
mmmcccc
明小子
ssssssssssss
ffffffffff现用delphi方法读取内容:
var
fp:textfile;
s:string;
begin
AssignFile(fp,'e:\1.txt');
Reset(fp);
While not EOF(fp) do //判断是否到末尾
Begin
ReadLn(fp,s);
memo1.text:=s;
End;
CloseFile(fp);end;可运行结果为什么是:“ffffffffff“ 而不是
“mmmcccc
明小子
ssssssssssss
ffffffffff
” 为什么呢?再问:read()与readLn()有什么不同呢?
mmmcccc
明小子
ssssssssssss
ffffffffff现用delphi方法读取内容:
var
fp:textfile;
s:string;
begin
AssignFile(fp,'e:\1.txt');
Reset(fp);
While not EOF(fp) do //判断是否到末尾
Begin
ReadLn(fp,s);
memo1.text:=s;
End;
CloseFile(fp);end;可运行结果为什么是:“ffffffffff“ 而不是
“mmmcccc
明小子
ssssssssssss
ffffffffff
” 为什么呢?再问:read()与readLn()有什么不同呢?
解决方案 »
- 请教:delphi使用olevariant对象的方式编辑powerpoint
- 复兴科技高薪诚聘DELPHI开发工程师(深圳南山科技园)
- 请问怎么在Excel中按月份填写相应子表内容?
- 某文件存在于电脑硬盘里,delphi程序运行时如何打开此文件?
- query组件,SQL插入一条数据出错,请高手进来看看呀
- 用存储过程出错----在线等
- delphi2010 没有TIdText???
- 怎样建立一个有纵列、横行的表?(用微软的Access)且在DBGird里显示出来.
- 怪!怪!怪!为什么我用Qreport做的报表在打印时总打印上次打印的内容?
- delphi中如何在 edit中判断是否为数字?
- delphi程序制作完成后 如何能拿到未安装delphi的机器运行
- 易飞ERP问题 SQL
readLn 一次读取一行
你的这个语句的原因,你的循环一直在重新赋值而已,不是追加行。
当s='mmmcccc'
你的memo1='mmmcccc'
当最后一句s='ffffffffff'
你的memo1就是 ffffffffff 了。
用一楼的方法改一下就可以了。
memo1.text:=s; 改成 memo1.lines.add(s);
前面的是改写,结果是循环最后一个值,后面的才是追加、插入。