[petro_alksv@ukr.net]

Код:

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.