http://acbr.sourceforge.net/wiki/index.php/P%E1gina_principal
Entre nesse endereco e se intere sobre o projeto ACBr, tem um componente
chamado ACBrFala que faz isso que vc precisa....
----- Original Message -----
From: Jefferson - Fórum
To: delphi-br@yahoogrupos.com.br
Sent: Monday, January 15, 2007 3:31 PM
Subject: Re: [delphi-br] Numero por extenso
Aproveitando a dúvida do amigo, gostaria de saber como eu poderia fazer uma
função que reproduziria um valor através de som, já que possuo todos arquivos
(*.wav) referentes aos valores.
Seria igual aos quiosques do supermercado, quando colocamos um produto e ele
diz o valor do mesmo.
Obrigado!
Jefferson
----- Original Message -----
From: Valdir UOL
To: delphi-br@yahoogrupos.com.br
Sent: Monday, January 15, 2007 10:22 AM
Subject: RES: [delphi-br] Numero por extenso
Pega ai um exemplo.
unit Ext;
interface
function extenso (valor: real): string;
implementation
uses
SysUtils, Dialogs;
function extenso (valor: real): string;
var
Centavos, Centena, Milhar, Milhao, Texto, msg: string;
const
Unidades: array[1..9] of string = ('Um', 'Dois', 'Tres', 'Quatro', 'Cinco',
'Seis', 'Sete', 'Oito', 'Nove');
Dez: array[1..9] of string = ('Onze', 'Doze', 'Treze', 'Quatorze', 'Quinze',
'Dezesseis', 'Dezessete', 'Dezoito',
'Dezenove');
Dezenas: array[1..9] of string = ('Dez', 'Vinte', 'Trinta', 'Quarenta',
'Cinquenta', 'Sessenta', 'Setenta',
'Oitenta', 'Noventa');
Centenas: array[1..9] of string = ('Cento', 'Duzentos', 'Trezentos',
'Quatrocentos', 'Quinhentos',
'Seiscentos',
'Setecentos', 'Oitocentos',
'Novecentos');
_____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Igor Alexandre
Enviada em: segunda-feira, 15 de janeiro de 2007 11:09
Para: Delphi-Br; Delphi-Total
Assunto: [delphi-br] Numero por extenso
Alguem sabe como retornar um numero por extenso. ex: 29 - Vinte e nove;
--
Igor Alexandre.
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
