Source position: tiObject.pas line 229
protected procedure TtiFieldCurrency.SetAsFloat(
const AValue: Extended
); virtual;