Calculando no Banco de Dados - Lazarus / Delphi
06/11/2017
0
Bom dia a todos, meus estou tendo um pequeno problema que já dura mais ou menos uma semana e não consegui resolver ainda.
É o seguinte, estou querendo calcular dois valores no banco de Dados e ele esta apresentando erro.
veja o código abaixo:
Procedure....
Var
Sexo: String;
IMC, Peso, Altura: Real;
begin
Peso:=StrToFloat(EditPeso.Text);
Altura:=StrToFloat(EditAltura.Text);
IMC:=Peso/(Altura*Altura);
EditIMC.Text:=FloatToStr(IMC);
O campo na tabela é:
Peso Decimal (5,2);
Altura Decimal (3,2);
IMC Valchar (5)
Gostaria dessa ajuda dos irmãos. Agradeço desde já. Obrigado.
É o seguinte, estou querendo calcular dois valores no banco de Dados e ele esta apresentando erro.
veja o código abaixo:
Procedure....
Var
Sexo: String;
IMC, Peso, Altura: Real;
begin
Peso:=StrToFloat(EditPeso.Text);
Altura:=StrToFloat(EditAltura.Text);
IMC:=Peso/(Altura*Altura);
EditIMC.Text:=FloatToStr(IMC);
O campo na tabela é:
Peso Decimal (5,2);
Altura Decimal (3,2);
IMC Valchar (5)
Gostaria dessa ajuda dos irmãos. Agradeço desde já. Obrigado.
Helton Garrido
Curtir tópico
+ 0
Responder
Posts
19/09/2019
Ricardo Araujo
Bom dia a todos, meus estou tendo um pequeno problema que já dura mais ou menos uma semana e não consegui resolver ainda.
É o seguinte, estou querendo calcular dois valores no banco de Dados e ele esta apresentando erro.
veja o código abaixo:
Procedure....
Var
Sexo: String;
IMC, Peso, Altura: Real;
begin
Peso:=StrToFloat(EditPeso.Text);
Altura:=StrToFloat(EditAltura.Text);
IMC:=Peso/(Altura*Altura);
EditIMC.Text:=FloatToStr(IMC);
O campo na tabela é:
Peso Decimal (5,2);
Altura Decimal (3,2);
IMC Valchar (5)
Gostaria dessa ajuda dos irmãos. Agradeço desde já. Obrigado.
É o seguinte, estou querendo calcular dois valores no banco de Dados e ele esta apresentando erro.
veja o código abaixo:
Procedure....
Var
Sexo: String;
IMC, Peso, Altura: Real;
begin
Peso:=StrToFloat(EditPeso.Text);
Altura:=StrToFloat(EditAltura.Text);
IMC:=Peso/(Altura*Altura);
EditIMC.Text:=FloatToStr(IMC);
O campo na tabela é:
Peso Decimal (5,2);
Altura Decimal (3,2);
IMC Valchar (5)
Gostaria dessa ajuda dos irmãos. Agradeço desde já. Obrigado.
Da uma olhada neste exemplo que fiz, acho que ajuda.
function TForm1.calcularIMC: Real;
var
sexo : string;
imc, peso, altura: Real;
begin
peso := 105;
altura := 1.78;
imc := peso/(altura*altura);
Result := imc;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)