[petro_alksv@ukr.net]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

var s:string;            i:integer;             sqlStr:STRING; begin   //íîìåð ïîðÿäêîâèé if (tp<>cxType_Order.Text)then     begin          dmMain.univers.Close ;          dmMain.univers.SQL.Clear;           sqlStr:='select max (t.order_numb) as order_numb from v_canc_order t where  ';          sqlStr:=SQLStr+'t.norder_type ='+(inttostr(cxType_Order.EditValue))+' and t.cat_id='+(inttostr(fmEditOrder.CAT_ID)) ;          dmmain.univers.SQL.Add(sqlStr);          dmmain.univers.ExecSQL;             if dmMain.univers.FieldValues['order_numb']<>null then                begin                  s:=inttostr(dmMain.univers.FieldValues['order_numb']+1);                  i:=length(s);                  OrderNumb.EditValue:=s;                end              else     OrderNumb.EditValue:='1';  end       else    OrderNumb.EditValue:=numb;

Админ: пользуемся тегами для оформления кода!

Помогите не могу понять в чом проблема выбивает ошибку Could not conver STRING into type Double.

[Alegun]

Ошибка типа не могу конвертнуть стрингу в вещественную еденицию, а выбивает наверное здесь

Код:

1	OrderNumb.EditValue:=s;

Несоответствие варианта видимо, может .asString требует?

[petro_alksv@ukr.net]

s:=inttostr(dmMain.univers.FieldValues['order_numb']+1); вот здесь выбивает ошыбку

[Alegun]

Тогда ещё поробуйте заменить IntToStr на (Try)FloatToStr или может в FieldValues не вещественный тип (напр. буквы, другие знаки преп) или там вообще пустое значение