somar valores

Delphi

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

Daniel

Curtidas 0

Respostas

Eliel Martins

Eliel Martins

16/05/2011

  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
GOSTEI 0
Emerson Nascimento

Emerson Nascimento

16/05/2011

tente:

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

ou

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


GOSTEI 0
Marco Salles

Marco Salles

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:  

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);

  

GOSTEI 0
POSTAR