Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject); var Numero: Extended; begin Numero := StrToFloat(Edit1.Text); Letras1.Numero := Trunc(Numero); Edit2.Text := Format('%s CON %d/100 .-', [Letras1.AsString, Trunc(100*Frac(Numero))]); end;
procedure TForm1.Button1Click(Sender: TObject); var Numero: Extended; begin Numero := StrToFloat(Edit1.Text); Letras1.Numero := Trunc(Numero); Edit2.Text := Format('%s CON %d/100 .-', [Letras1.AsString, Trunc(100*Frac(Numero))]); end;