Oder eine User-Function basteln, die das Ganze übernimmt.
Delphi-Quellcode:
type
THackfrxCustomDBDataSet = class(TfrxDataSet)
private
FFields: TStringList;
end;
function TFormValidierung.IsDBFieldNull(index: Integer): Boolean;
begin
Result := TField(THackfrxCustomDBDataSet(frxDBDatasetAuftrag).FFields.Objects[index]).IsNull;
end;
...
frxReport.AddFunction('function IsDBFieldNull(index: Integer): Boolean', 'User Function','');
...
function TForm.frxReportUserFunction(const MethodName: String; var Params: Variant): Variant;
begin
inherited;
Result := -1;
if (MethodName = 'ISDBFIELDNULL') then
begin
Result := IsDBFieldNull(Integer(Params[0]));
end;
end;
...