Necesito consejo para mostrar un texto según condición de una variable en un programa en Delphi
Compadre necesito me ayudes en esto:
mira yo declaro una constante: kg=2.2;
Ahora en un edit voy a introducir un númro libras 150
Al puslar un botón este me va a multiplicar 150*2.2 la constante y el resultado se va a reflejar en otro edit
Hasta aquí no hay problema
Ahora lo que quiero es que en un tercer edit me salga un texto teniendo en cuenta el número que me da la multiplicación pero no logro hacerlo estoy utilizando la instrucción if then else.
Ejemplo si el peso es mayor o igual a 190 diga obeso si es menor diga normal
ayudame experto; saludos
mira yo declaro una constante: kg=2.2;
Ahora en un edit voy a introducir un númro libras 150
Al puslar un botón este me va a multiplicar 150*2.2 la constante y el resultado se va a reflejar en otro edit
Hasta aquí no hay problema
Ahora lo que quiero es que en un tercer edit me salga un texto teniendo en cuenta el número que me da la multiplicación pero no logro hacerlo estoy utilizando la instrucción if then else.
Ejemplo si el peso es mayor o igual a 190 diga obeso si es menor diga normal
ayudame experto; saludos
1 respuesta
Respuesta de gaunmanuel
1
Ok, una vez que haces la multiplicación esta la guardas en una variable por ejemplo llamada total ok, pones:
if total >= 190 then
edit3.Text :='Obeso'
else
if total < 190 then
edit3.Text := 'Normal';
Y listo, si quieres poner más condiciones, pues le quitas el punto y coma final y agregas un nuevo else y así sucesivamente..
if total >= 190 then
edit3.Text :='Obeso'
else
if total < 190 then
edit3.Text := 'Normal';
Y listo, si quieres poner más condiciones, pues le quitas el punto y coma final y agregas un nuevo else y así sucesivamente..
Amigo no de guardar la variable!
Compadre por culpa de una letra no tengo tu respuesta.
Lo que dije fue no se guardar la variable.
Saludos
Lo que dije fue no se guardar la variable.
Saludos
No te entiendo tu ultima de duda de: "¿no de guardar la variable!!!!!!" que quieres decirme?
Mil gracias de que clase de apuro me has sacado hermano
Saludos
Saludos
Ah ok! Jejejeje
Bueno es muy sencillo, ejemplo:
procedure TForm1.Peso;
var total:double; //asi se declara la variable
begin
total := 150*2.2; //aqui estarias guardando el resultado en la variable total.
if total >=190 then
edit3.Text := 'Obeso';
else
edit3.text :='Normal';
end;
Y listo eso es todo
Bueno es muy sencillo, ejemplo:
procedure TForm1.Peso;
var total:double; //asi se declara la variable
begin
total := 150*2.2; //aqui estarias guardando el resultado en la variable total.
if total >=190 then
edit3.Text := 'Obeso';
else
edit3.text :='Normal';
end;
Y listo eso es todo
