On-line Documentation

OnGetFieldValue event - Example


procedure TReportContainer.UserDataGetFieldValue(Sender: TObject;

  const Field: Stringvar Value: OleVariant);

begin

  if AnsiCompareText(Field, 'No') = 0 then

    Value := FCounter

  else if AnsiCompareText(Field, 'String') = 0 then

    Value := Format('This is the string %d.', [FCounter])

  else if AnsiCompareText(Field, 'Number') = 0 then

    Value := Random(100);

end;