adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
 Enviada: Seg Mar 05, 2007 10:54 pm Assunto: [OT]Numeros por extenso com separaçao silábica!!!! |
 |
|
Estava procurando por algo para fazer a separaçao silábica. e achei um bom com fontes free feito em delphi neste endereço
almanaquev2.freezope.org/delphi/del007a.htm
Para quem precisar assim como eu precisei eh soh procurar neste endereço acima. Nao deixei como link para que o pessoal nao pense que eh virus. Bom eu baixei o fonte e compilei, e confesso que o colega que fez este codigo esta de parabens.
Apenas modifiquei essa unit para receber numeros tipo assim 1.000,00 em vez de assim 1000,00
Olha o codigo desta unit como ficou (Destaque em negrito foi aonde alterei)
| Citação: | unit uExtenso;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure Edit1Exit(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
svalor: string;
implementation
{$R *.DFM}
uses
uACExtenso;
procedure TForm1.Button1Click(Sender: TObject);
var
aExt: array [0..7] of string;
nInd: integer;
begin
Memo1.Clear;
svalor := stringreplace(edit1.text, '.', '', [rfReplaceAll]);
ACExtenso(svalor, '*', [40, 40, 40, 40, 40, 40, 40, 40], aExt);
//Memo1.Lines.Add('123456789+123456789+123456789+123456789+');{tirei esta linha}
for nInd := low(aExt) to high(aExt) do
Memo1.Lines.Add(aExt[nInd]);
Edit1.SetFocus;
end;
procedure TForm1.Edit1Exit(Sender: TObject);
begin
edit1.text:= FormatFloat('#,##0.00;(#,##0.00)',StrToFloat(edit1.Text));
end;
end. |
Acho que vale a pena esse modo de extenso com separaçao silábica.
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree |
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
