Я хотел бы предоставить функцию, которая может принимать необязательный анонимный метод:
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)
добиваются цели.