F�rum somar valores #401127

16/05/2011

Preciso somar o valor digitado em uma edit com um valor salvo em minha tabela porem nao consigo calcular ele da erro de tipos incompativeis 'string e extended', o codigo que estou usando � o seguinte:

if Edit2.Text <> '' then
    begin
    DBEdit1.Text := (ADOTable1.FieldByName('E1').AsInteger) + strtofloat(edit2.Text);
    end
    else
    Edit2.Text := '0';
    DBEdit1.Text := (ADOTable1.FieldByName('E1').AsInteger) + strtofloat(edit2.Text);

Daniel

Curtir t�pico

+ 0

Responder

Posts

16/05/2011

Eliel Martins

Ol� Daniel !

O que est� ocorrendo esse erro, � que voc� est� tentando passar uma soma de dois valores, sendo um do tipo Integer e outro Float para uma propriedade Text que � string, voc� precisa converte essa soma para passar para um tipo String, segue o exemplo abaixo :

DBEdit1.Text := StrtoFloat((ADOTable1.FieldByName('E1').AsInteger) + strtofloat(edit2.Text));

Observa��o : Verifica se est� correto, voc� est� somando um valor inteiro com um valor float.

Espero ter ajudado .

Eliel G. Martins

Responder

Gostei + 0

16/05/2011

Emerson Nascimento

tente:

DBEdit1.Field.AsFloat := ADOTable1.FieldByName('E1').AsInteger + strtofloat(edit2.Text);

ou

DBEdit1.Field.AsInteger := ADOTable1.FieldByName('E1').AsInteger + strtointdef(edit2.Text,0);

Responder

Gostei + 0

16/05/2011

Marco Salles

va tem que fazer a convers�o Inversa ....

var
V:integer;
begin
V:=StrtoIntDef(Edit2.Text,0);
 DBEdit1.Text := intToStr(ADOTable1.FieldByName('E1').AsInteger) + V);

Responder

Gostei + 0