D
diziny
Unregistered / Unconfirmed
GUEST, unregistred user!
我用table控件后，读入文本到表里，记录数为2000条时，
速度慢得如蜗牛，谁能帮我解决？
我的表名为zzb；我先将文本读到richedit1中，每一记录是一行。
我的代码：
with datamodule_tfgz.table_zzb do//table_zzb 就是我用的table控件，它指向zzb
begin
open;
for i:=0 to richedit1.Lines.Count-1 do
begin
append;
myline:=richedit1.lines;
for j:=1 to GetSubStrNum(myline,'|') do//GetSubStrNum是一个取分隔符的函数
begin
Fields[j-1].AsString := GetSubStr(MyLine,'|');
end;
post;
end;
end;
我试过将文本的记录数减少一点就很快，请问各位高手有什么好的解决办法？
如果可以用其他控件实现将文本读入一个表，请问怎么实现？
谢谢！
速度慢得如蜗牛，谁能帮我解决？
我的表名为zzb；我先将文本读到richedit1中，每一记录是一行。
我的代码：
with datamodule_tfgz.table_zzb do//table_zzb 就是我用的table控件，它指向zzb
begin
open;
for i:=0 to richedit1.Lines.Count-1 do
begin
append;
myline:=richedit1.lines;
for j:=1 to GetSubStrNum(myline,'|') do//GetSubStrNum是一个取分隔符的函数
begin
Fields[j-1].AsString := GetSubStr(MyLine,'|');
end;
post;
end;
end;
我试过将文本的记录数减少一点就很快，请问各位高手有什么好的解决办法？
如果可以用其他控件实现将文本读入一个表，请问怎么实现？
谢谢！
]