请教一个初级问题:如何快速将txt文件导入到listbox中。急在线等! ( 积分: 30 )

  • 主题发起人 主题发起人 lzh1018
  • 开始时间 开始时间
L

lzh1018

Unregistered / Unconfirmed
GUEST, unregistred user!
我是一个出学者,想将一个txt文件导入到listbox中,txt文件中有几十万条甚至上百万条记录。我用以下

代码导入速度很慢,有时还会死机。请教各位老师怎样才能快速的将文件导入到listbox中和快速的将listbox中的数据保存为txt文件?
请帮忙写一下。谢谢!下面是我导入的代码:
opendialog1.Title:= '选择要打开的文件';
opendialog1.Filter:= 'txt file(*.txt)|*.txt';
if opendialog1.execute then
begin
listbox1.Items.LoadFromFile(opendialog1.filename);
end;
 
txt文件中有几十万条甚至上百万条记录
将一个如此大txt文件导入到listbox中不知道有什么意义?
通常会内存溢出!
 
你用这个方法试试,如果还报错,看看是在哪一条出的错!
procedure OpenFile
var
txtfile:TextFile;
s:string;
Begin
AssignFile(txtfile,'Example.txt');
While Not Eof(txtFile) do
begin
readln(txtFile,s);
memo1.lines.add(s);
end;
closeFile(txtFile);
END;
 
这个问题,我觉得你应该看导到listbox用途是什么,我建议你不如一条条的导入,这样的过程你自己是可控的,当然会慢一些的!
 
先谢谢各位的指点,我再试一下后再向大家请教.
 
现在我也想好我导入这么多数据有什么用,我是偶然看见一款***软件,
它可以导入几百万条甚至上千万条数据,出于好奇,我写了一下,可就是不行,
我也试过一条一条导入,还是不行,那款软件不是用的memo组件,
应该是列表组件,出于学习的目的向大家请教,
以防以后遇到类似的问题没有解决的办法。还望大家能多多指点。谢谢!
 

Similar threads

后退
顶部