[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.

[Alegun]

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

Код:

OrderNumb.EditValue:=s;

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

[petro_alksv@ukr.net]

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

[Alegun]

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