Source position: db.pas line 386
protected procedure TField.SetAsCurrency(
AValue: Currency
); virtual;