In Fastreport Null-Werte ausgeben

[madas]

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;

...