Errores con los tipos de datos ayuda !

[llSnakell]

Ola quiero saber porque me arroja errores el delphi con respecto a este Programa, otra cosa , necesito que me muestre numeros decimales , y solo me aparece como enteros :S

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  num,tot:integer;
begin
  num:=strtoint(edit1.Text);
  tot:=(num*15)div 100;
  label4.caption:=' El 15% de '+inttostr(num)+' es '+inttostr(tot);
end;

con este me funciona el programa pero necesito que me muestre resultados decimales en caso de que asi sea, en cambio solo me muestra enteros.

Agradeceria su ayuda y disculpen por molestar con algo tan basico :S

Saludos

[[oscarac]]

y podrias decir que error te arroja?

[[oscarac]]

Puedes Probar asi

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var num,totouble;
begin
num := strtofloat(edit1.Text);
tot := num*15 / 100;
label4.caption:=' El 15% de '+ Format('%f', [num]) +' es '+ Format('%f', [Tot]);
end;

[ecfisa]

Hola.

Ola quiero saber porque me arroja errores el delphi con respecto a este Programa

.

Bueno, en principio dependerá de que valor tiene la propiedad Text de Edit1. Si su contenido es: Juan Carlos, generará un error sin dudas ya que Juan Carlos no es un número...

En cuanto a la obtención de numeros decimales, solo debes cambiar el tipo de variable, de división y conversión:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  num, tot: Double;
begin
  num:= StrToFloat(edit1.Text);
  tot:= num * 15 / 100;
  Label4.caption:=' El 15% de ' + FloatToStr(num) + ' es '+ FloatTostr(tot);
end;

Saludos.

[llSnakell]

aaaaaaaaaa ya entendi muchas gracias , lo que pasa es que le colocaba inttostr en vez de float , el int de inttostr significa de integer y el float de float
gracias