Ver Mensaje Individual
  #2  
Antiguo 29-04-2010
Avatar de Lord Delfos
Lord Delfos Lord Delfos is offline
Miembro
 
Registrado: ene 2008
Ubicación: Tandil, Argentina
Posts: 558
Reputación: 17
Lord Delfos Va por buen camino
El problema es que tu variable CO es de tipo Integer. Las variables de tipo integer solamente pueden contener números enteros.

Cuando hacés

CO:=StrtoINt(edit1.text)*StrtoINt(edit2.text)/100);

Lo que obtenés es un número real, porque la división con "/" genera un número real (independientemente de si el resultado es "con coma" o sin ella). Ahí está el problema.

¿Solución? Pues declarar CO como una variable real.

Código Delphi [-]
var MV, PO: Integer;
     CO: Real;

begin
  MV:= StrToInt(edit1.text);
  PO:= StrToInt(edit2.text);
  CO:= StrToInt(edit1.text) * StrToInt(edit2.text) / 100;
  edit3.Text:= FormatFloat('%f', [CO]);
end;

PD: También te sobraba un paréntesis en esa linea.

PD2: Comentario obligado a todo usuario nuevo. ¡Bienvenido! y pegale una leída a la guía de estilo.

PD3: ¡Fijate bien dónde ponés los hilos! El foro de Debates es, como su nombre lo indica, para debates.
Responder Con Cita