就用对文本基本操作即可,readln读出一行;
解决方案 »
- 用savedialog将adoquery中的数据导出到excel中后,fastreport的预览就空了
- 在同一个工程里面,远程数据模块能不能有很多个?焦急地问,感谢万分,绝对高分!
- 如何通过代码将listview的某一行高亮?谢谢。
- 如何将一个WORD类型的变量赋给一个两个BYTE的数组?在线等。
- bde5.2+oracle8.05客户端的c/s库程序,在win2000下正常,在win98下报错!急盼高手解答!
- 怎么将字符串中的*部分字符*替换掉?急!!(在线等待)
- 500分:高难度问题-如何得到USB设备插入或者拔出消息!
- 如何模拟按键?
- 哪位有介绍在delphi中使用ODBC Express 5.6的详细资料?给我一份好吗?
- 一个小问题,70分绝对超值
- 如何在打包时自动产生数据源?
- 关于调整时间的问题 ?
fText:TextFile;
strLine:String;
begin
YourList.Clear;
AssignFile(fText,'C:\..\AAA.Txt');
Reset(fText);
while not Eof(fText) do
begin
Readln(fText,strLine);
strLine:=Trim(strLine);
YourList.Items.Add(strLine);
end;
CloseFile(fText);
end;
tfile:textfile;
s:string;
begin
AssignFile(tfile,'d:\???.txt');
reset(tfile);
try
while not eof(tfile) do
begin
readln(tfile,s);
ListBox.Items.Append(s);
end;
finaly
closefile(tfile);
end;
end;