Could not convert variant of type (UnicodeString) into type (Double)

[postaveche]

Здравствуйте
есть такая проблема ... ввожу данные в базу, одна переменная DOUBLE а данные ввожу через TEDIT

При выполнение ругается
Could not convert variant of type (UnicodeString) into type (Double)

вот код

DataModule2.IBStoredProc1.StoredProcName:='ADD_ALG_SPECII';
DataModule2.IBStoredProc1.ParamByName('denumirea').Value := Edit1.Text;
DataModule2.IBStoredProc1.ParamByName('masa').Value := Edit2.Text;
DataModule2.IBStoredProc1.ParamByName('grupa').Value := DBLookupComboboxEh1.KeyValue;
DataModule2.IBStoredProc1.ParamByName('gen').Value := DBLookupComboboxEh2.KeyValue;
DataModule2.IBStoredProc1.ParamByName('s').Value := Edit3.Text;
DataModule2.IBStoredProc1.ParamByName('x').Value := Edit4.Text;
DataModule2.IBStoredProc1.ParamByName('o').Value := Edit5.Text;
DataModule2.IBStoredProc1.ParamByName('b').Value := Edit6.Text;
DataModule2.IBStoredProc1.ParamByName('a').Value := Edit7.Text;
DataModule2.IBStoredProc1.ParamByName('p').Value := Edit8.Text;
DataModule2.IBStoredProc1.ParamByName('g').Value := Edit9.Text;
DataModule2.IBStoredProc1.ParamByName('s_1').Value := Edit10.Text;

DataModule2.IBStoredProc1.ExecProc;

:masa - DOUBLE PRECISION

Как решить проблему или как правельно???

[vovk]

может при присваивании значения параметру это значение сразу приводить к нужному типу?

DataModule2.IBStoredProc1.ParamByName('denumirea').Value := strtofloat(Edit1.Text);

[postaveche]

пробовал и так то же самая ошибка вылетает

[vovk]

а так ?

DataModule2.IBStoredProc1.ParamByName('denumirea').AsFloat := strtofloat(Edit1.Text);

))

[postaveche]

это тоже пробовал ... ничего ... тоже самая ошибка вылетает

[_SERGEYX_]

а так?

DataModule2.IBStoredProc1.ParamByName(<поле>).Text := Edit2.Text;

[postaveche]

Сообщение от _SERGEYX_

а так?

DataModule2.IBStoredProc1.ParamByName(<поле>).Text := Edit2.Text;

тоже самое ... есть еще какое то решение????

[_SERGEYX_]

Из всего текста только две строки написаны правильно

DataModule2.IBStoredProc1.ParamByName('grupa').Value := DBLookupComboboxEh1.KeyValue;
DataModule2.IBStoredProc1.ParamByName('gen').Value := DBLookupComboboxEh2.KeyValue;

где число передается в число. Во всех остальных передается Text в Value. Скорее всего косяк здесь. Или в самой хранимой процедуре.

[soleil@mmc]

плюс еще небось и децималсепарейтор не выставлен правильно в программе чтобы преобразования проходили адекватно

[postaveche]

сделал вот так

DataModule2.IBStoredProc1.StoredProcName:='ADD_ALG_SPECII';
DataModule2.IBStoredProc1.ParamByName('denumirea').Value := Edit1.Text;
DataModule2.IBStoredProc1.ParamByName('masa').Value := StrToFloat(Edit2.Text);
DataModule2.IBStoredProc1.ParamByName('grupa').Value := DBLookupComboboxEh1.KeyValue;
DataModule2.IBStoredProc1.ParamByName('gen').Value := DBLookupComboboxEh2.KeyValue;
DataModule2.IBStoredProc1.ParamByName('s').Value := Edit3.Text;
if Edit4.Text<>'empty' then
DataModule2.IBStoredProc1.ParamByName('x').Value := StrToFloat(Edit4.Text);
if Edit5.Text<>'empty' then
DataModule2.IBStoredProc1.ParamByName('o').Value := StrToFloat(Edit5.Text);
if Edit6.Text<>'empty' then
DataModule2.IBStoredProc1.ParamByName('b').Value := StrToFloat(Edit6.Text);
if Edit7.Text<>'empty' then
DataModule2.IBStoredProc1.ParamByName('a').Value := StrToFloat(Edit7.Text);
if Edit8.Text<>'empty' then
DataModule2.IBStoredProc1.ParamByName('p').Value := StrToFloat(Edit8.Text);
if Edit9.Text<>'empty' then
DataModule2.IBStoredProc1.ParamByName('g').Value := StrToFloat(Edit9.Text);
if Edit10.Text<>'empty' then
DataModule2.IBStoredProc1.ParamByName('s_1').Value := StrToFloat(Edit10.Text);

DataModule2.IBStoredProc1.ExecProc;

если ввожу в поля где флоат какоето значение то сохраняется без проблем а если оставляю нулл то ругается

is not a valid floating point value