Ver Mensaje Individual
  #4  
Antiguo 17-04-2006
[Gunman] [Gunman] is offline
Miembro
 
Registrado: dic 2004
Ubicación: Pedreguer.
Posts: 355
Reputación: 20
[Gunman] Va por buen camino
Mmmm, que versión de windows tenéis?
PD: alapaco, habrás puesto cada parte del código en dos botones separados, no? Yo no me había dado cuenta al principio y tenia el código en un mismo botón, el código ha de ser así:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const
unValor = -3.4;
var
fValor : real;
begin
fValor := Abs( unValor );
Panel1.Caption := IntToStr( Trunc(fValor*10) );
end;

procedure TForm1.Button2Click(Sender: TObject);
const
unValor = -3.4;
var
fValor : real;
begin
fValor := Abs( unValor*10 );
Panel1.Caption := IntToStr( Trunc(fValor) );
end;
__________________
l2prog.co.nr
Responder Con Cita