我想公开一个可以采用可选匿名方法的函数:
type
TParamsProc = reference to procedure(Params: TSQLParams);
TFieldsProc = reference to procedure(Fields: TSQLResult);
TDbController = class
...
public
procedure Select(const SQL: sting; ParamsProc: TParamsProc; FieldsProc: TFieldsProc);
end;
implementation
procedure TDbController.Select(const SQL: sting; ParamsProc: TParamsProc; FieldsProc: TFieldsProc);
var
Q: TUIBQuery;
begin
Q := TUIBQuery.Create(nil);
try
Q.Database := FDatabase;
Q.Transaction := FTransaction;
Q.SQL.Text := SQL;
ParamsProc(Q.Params);
Q.Open;
while not Q.Eof do
begin
FieldsProc(Q.Result);
Q.Next;
end;
finally
Q.Free;
end;
end;
由于有时我没有参数可传递给 SQL 查询,因此我希望将 ParamsProc 设为可选。
此代码不起作用:
if ParamsProc <> nil then ParamsProc(Q.Params);
这个也不是:
if @ParamsProc <> nil then ParamsProc(Q.Params);
第一个不编译,第二个编译但不工作,因为 ParamsProc 始终具有非零值。
调用示例:
FController.Select(
'select A, B, C from SOME_TABLE',
nil,
procedure(Fields: TSQLResult)
begin
FA := Fields.AsInteger[0];
FB := Fields.AsString[1];
FC := Fields.AsCurrency[2];
end
);
编辑
似乎Assigned(ParamsProc)
可以解决问题。
最佳答案
根据 Jeroen Pluimers 的建议,我将“编辑”设为“答案”:
Assigned(ParamsProc)
做到这一点:
procedure TDbController.Select(const SQL: sting; ParamsProc: TParamsProc; FieldsProc: TFieldsProc);
var
Q: TUIBQuery;
begin
Q := TUIBQuery.Create(nil);
try
Q.Database := FDatabase;
Q.Transaction := FTransaction;
Q.SQL.Text := SQL;
if Assigned(ParamsProc) then
ParamsProc(Q.Params);
Q.Open;
while not Q.Eof do
begin
FieldsProc(Q.Result);
Q.Next;
end;
finally
Q.Free;
end;
end;
希望这有帮助!
关于delphi - 可选的匿名方法,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/5856249/