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;
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;