Value of field CurrencyRate is out of range

← →
Рукма (2005-05-15 13:58) [0]

Делаю присвоение значения курса валюты:
...
Dataset.FieldByName("CurrencyRate").Value := CurrencyRate();
...
Получаю ошибку(сабж). В дебаге смотрю - у меня поле CurrencyRate - TBCDField , а варриантное значение, которое возвращает функция CurrencyRate() - 6(Currency) Как быть? Как преобразовать?

СУБД - MSSQL 2000

← →
Рукма (2005-05-15 14:05) [1]

Сорри зря беспокоил...
...
CurrToBCD(CurrencyRate(),theBCD);
Dataset.FieldByName("CurrencyRate").AsBCD := theBCD;
..

← →
Рукма (2005-05-15 16:24) [2]

Нет.. рано радовался... все равно эту же ошибку выдает :(
Даже если просто присвоить число... блин. Я это поле "CurrencyRate" создаю сам:
var Field: TBCDField;
begin
Field := TBCDField.Create(Dataset);
Field.Precision := 4;
Field.FieldName := "CurrencyRate";
Field.Name := Dataset.Name + Field.FieldName;
Dataset.Fields.Add(Field.Name,Field.DataType,AField.Size,false);
end;

Value of field CurrencyRate is out of range Найти похожие ветки