O que tem de errado nesse codigo !

Delphi

19/01/2004

Saudacoes pessoal,

Estou querendo.. vazer com q o campo<<VALOR DE VENDA>> que é ascurrency do access.. formato moeda receba o valor da mercadoria vezes o percentual de lucro para que ne de o valor de venda comercializavel... e tambem a quantidade vezes o valor de compra... so q ta dando um erro no meu codigo declarei variavel global veja abaixo se alguem puder me ajudar....

====> UNDECLARIED INDENTIFIER : INTTOFLOAT

OLHEM O CODIGO

procedure TFrmPrincipal.DBEdit24Exit(Sender: TObject);
Var aux : Real;
begin
if (DmCV.QryProduto.State in [dsEdit,dsInsert])and (DBEdit16.Text <>´´) Then
begin
Valor_A := StrToInt(DBEdit16.Text);
Valor_B := StrToInt(DBEdit24.Text);
Aux := 100;
Valor_B := Valor_A * Valor_B;
ERRO ===> Valor_B := IntToFloat(Valor_B);
Valor_B := Valor_B/aux;
Valor_C := IntToFloat(Valor_B);
Resultado := IntToFloat(Valor_C + Valor_A);
DBEdit28.Text := FloatToStr(Resultado);
RxDBCalcEdit2.SetFocus;
end;
end;

VARIAVEL GLOBAIS :

var
FrmPrincipal: TFrmPrincipal;
Valor_A,Valor_B : Integer;
Resultado, Valor_C : Real;


Jonasaf

Jonasaf

Curtidas 0

Respostas

Deus

Deus

19/01/2004

Muito simples: não existe essa função, [i:5acf361d05]IntToFloat[/i:5acf361d05]. Como é que você quer transformar um número inteiro em um float? Se você atribuir um inteiro a uma variável float, ela vai receber o float normalmente, sem precisar haver conversão nenhuma! Um inteiro é que não pode receber um float, e a conversão é feita usando ou arredondamento ou truncagem. De qualquer forma, não existe essa conversão. :)

Abraços, dEUS


GOSTEI 0
POSTAR