delphi第三方控件Delphi控件的拿来主义
delphi第三方控件Delphi控件的拿来主义
delphi第三方控件:Delphi控件的拿来主义(三)
疯狂代码 www.51wendang.com :http:/CrazyCoder.cn/Delphi/Article12049.html
----问题 2及解决方案
每条导入表中纪录除了ISO文件中内容外还需要有书类型,期号,以及ID号而TPgCSV在插入新纪录时只处理了同文本文件中数据相关字段,因此,这些字段内容需要我们自己来加入不用说,很自然就会想到Table中AfterInsert事件.但问题是我Table在DataModule单元中我必须传参数到AfterInsert事件中麻烦！同时这样处理会带来维护上混乱个单元里面发生事件应该尽量由这个单元里面或过程来处理于是,我又想到了在当前单元中写个处理过程,然后在运行时把这个过程指派给TableAfterInsert事件导入结束后再禁止掉可行但还是麻烦！既然大多数情况下都会遇到这样问题,那何不了百了,把这个事件封装起来呢.
同问题样,这里我们还是需要个事件处理过程AfterInsert.这次应该加在哪儿呢?大家肯定眼就看出来了:
procedure TPgCSV.CSVToDataSet;
begin
…
FData.DisableControls;
while (not Eof(FFile)) and (not FStop) do
begin
//read from CSV
Readln(FFile,RecordString);
//xm4014\'s modication
Assigned(FRegulateString) then
