控件的拿来主义

民生娱乐 2021-08-24 13:35 字号：大中小

我们来看DataSetToCSV方法的实现代码(主要是注释部分):

procedure VToDataSet;

var

RecordString,

Temp : string;

i : Integer;

C : LongInt;

D : Boolean;

F : Real;

ErrorResponse : TPgCSVErrorResponse;

Buffer : Pointer;

begin

//create field cache

FFieldCache:=eate;

//initiate map items

FMapItems:=0;

//allocate buffer size

GetMem(Buffer,FBufferSize);

//assign and open CSV file

AssignFile(FFile,FCSVFile);

SetTextBuf(FFile,Buffer^,FBufferSize);

Reset(FFile);

//open table if nessecary

if FAutoOpen then

begin

if Assigned(FBeforeOpenTable) then

FBeforeOpenTable(Self);

en;

if Assigned(FAfterOpenTable) then

FAfterOpenTable(Self);

end;

//export to table from CSV file

if Assigned(FBeforeExport) then

FBeforeExport(Self);

//set the counter to zero

C:=0;

Temp:=ShortDateFormat;

ShortDateFormat:=FDateFormat;

{**********以下是文本数据导入的核心代码部分,也是我要关心的部分********}

sableControls;

while (not Eof(FFile)) and (not FStop) do

begin

//read from CSV

Readln(FFile,RecordString);

//注意，这里好像差了一点什么东西

//add new record

try

pend;

for i:=1 to CountMapItems do

if Uppercase(GetMapItem(i,D)) Uppercase(FIgnoreStr) then

case eldByName(GetMapItem(i,D)).DataType of

ftInteger:

eldByName(GetMapItem(i,D)).AsInteger:=

StrToIntDef(Trim(GetCSVRecordItem(i,RecordString)),FDefaultInt);

ftFloat:

begin

try

F:=StrToFloat(Trim(GetCSVRecordItem(i,RecordString)));

except

F:=FDefaultInt;

end;

eldByName(GetMapItem(i,D)).AsFloat:=F;

end;

else

if FTrimData then

eldByName(GetMapItem(i,D)).AsString:=

Trim(GetCSVRecordItem(i,RecordString))

else

eldByName(GetMapItem(i,D)).AsString:=

GetCSVRecordItem(i,RecordString);

end;

//post record

st;

except

on E:Exception do

if not FSilentExport then

raise

else

if Assigned(FExportError) then

begin

FExportError(Self,ssage,C,ErrorResponse);

if ErrorResponse = pgcsvAbort then

Break;

end;

if Assigned(FOnAddRecord) then

FOnAddRecord(Self);

if Assigned(FExportProgress) then

FExportProgress(Self, C, FStop);

Inc(C);

end;

ableControls;

{************以上是文本数据导入的核心代码部分**************}

if Assigned(FAfterExport) then

FAfterExport(Self);

//close table if nessecary

if FAutoOpen then

begin

if Assigned(FBeforeCloseTable) then

FBeforeCloseTable(Self);

ose;

if Assigned(FAfterCloseTable) then

FAfterCloseTable(Self);

end;

//close CSV file

CloseFile(FFile);

//disallocate buffer

FreeMem(Buffer);

ShortDateFormat:=Temp;

//free cache

for i:=unt - 1 downto 0 do

Dispose(ems[i]);

ee;

end;

(这么长!看得我眼都花了.好在找到了我所关心的核心代码,其他的?别管了吧,我这个懒惰的人.)差的是什么呢?很明显，我们希望把这个时候的RecordString开放出去,经过处理之后再回来进行导入的操作.所以,这里差的只是一个事件处理过程,在这个过程中,我们需要通过Delphi把RecordString的值传出去让用户处理。

既然没有提供这个接口，那就自己动手添加了。由于需要传参数,这个事件不能用标准的TNotifyEvent来定义，而需要重新声明。

新的事件声明和事件属性如下：

type

...

TPgCSVRegulateStrEvent = procedure (Sender : TObject; var ARecordString: string) of object;

...

TPgCSV = class(TComponent)

Published

property RegulateString : TPgCSVRegulateStrEvent read FRegulateString write FRegulateString;

//写完后别忘了按一下ctrl+shift+c

...

End;