O que tem de errado nesse codigo !
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;
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
Curtidas 0
Respostas
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
Abraços, dEUS
GOSTEI 0