多线程数据采集(50)

H

hqtech

Unregistered / Unconfirmed
GUEST, unregistred user!
有一工作每天要从一固定的文件夹中取出TXT文件,然后将TXT中的资料取出进行加工。因为加工的过程是比较耗时的,我现在设想:1、先遍历该文件夹,将所有符合条件的记录取出来,将文件名加载到一个列表中。2、根据文件的数量,每10个文件建立一个线程去处理。目前可以建立线程工作,但是怎么样将文件的序号如1~10,11~20传给每个相对独立的线程呢?还有就是线程的异常处理要怎么处理,希望能有详细的代码说明。 var i:integer;
sl:Tstringlist;
begin
for i:= 0 to memo1.count-1do
begin
try sl:=Tstringlist.Create;
sl.LoadFromFile(Memo1.Lines);
memo2.Lines.Add(sl.Text);
finally sl.Free;
end;
end;
 
A

aikede

Unregistered / Unconfirmed
GUEST, unregistred user!
线程类开一个数据区,接收编号呗,但是要注意访问安全。。
 
H

hqtech

Unregistered / Unconfirmed
GUEST, unregistred user!
老兄能说得更详细点吗
 
A

aerobull

Unregistered / Unconfirmed
GUEST, unregistred user!
将文件名传入线程,线程开始时的时候,就将文件改名.线程中处理时如果有失败,那么在线程结束的时候就将文件名改回原名.
 
顶部