ou
edit1.text := FormatCurr('###,###,##0.00', cur);
- Mensagem original
De: Apoio <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 15 de Janeiro de 2008 15:57:27
Assunto: Re: [delphi-br] Currency para string
bem eu fiz aqui :
procedure TFo
Casagrande
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, January 16, 2008 9:42 AM
Subject: Re: [delphi-br] Currency para string
>> 0123,45
>>
>> e não
>>
>> 343.434.123.204,54
>>
>
> Utilize a sua própria rotina sem o S
Por quê você não altera o DecimalSeparator para o que você quer usar?
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Paulo
Casagrande
Enviada em: quarta-feira, 16 de janeiro de 2008 09:42
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Currency para string
>> 0123,45
>>
>> e não
>>
>> 343.434.123.204,54
>>
>
> Utilize a sua própria rotina sem o StringReplace.
>
Acho que não dá... se não estou enganado o resultado depende do
DecimalSeparator,
assim sendo não tenho nenhuma garantia que DecimalSeparator é igual = ','
sem o StringRepla
com.br
> Sent: Tuesday, January 15, 2008 11:26 AM
> Subject: [delphi-br] Currency para string
>
>
> Bom dia a todos...
>
> A seguinte função recebe um currency e
> retorna uma string conforme o tamanho indicado
> e duas casas decimais separadas por vír
Paulo Casagrande wrote:
> Obrigado pela ajuda, mas preciso que o retorno seja:
>
> 0123,45
>
> e não
>
> 343.434.123.204,54
Utilize a sua própria rotina sem o StringReplace.
--
Joao Morais
> Obrigado!
>
>> bem eu fiz aqui :
>>
>> procedure TForm1.Button1Click(Sender: TObject);
>>
Bom dia a todos...
Obrigado pela ajuda, mas preciso que o retorno seja:
0123,45
e não
343.434.123.204,54
Obrigado!
> bem eu fiz aqui :
>
> procedure TForm1.Button1Click(Sender: TObject);
> var cur : currency;
>
> begin
> cur:= 343434123204.54;
> edit1.Text:=FormatFloat('###,##0.
ormatfloat()
- Original Message -
From: Paulo Casagrande
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, January 15, 2008 11:26 AM
Subject: [delphi-br] Currency para string
Bom dia a todos...
A seguinte função recebe um currency e
retorna uma string conforme o tamanho indicad
Bom dia a todos...
A seguinte função recebe um currency e
retorna uma string conforme o tamanho indicado
e duas casas decimais separadas por vírgula
function FormatarCurr2D( Value: Currency; MaxLength: integer): string;
begin
Result := FormatCurr(StringOfChar('0', MaxLength - 4) + '0.00', Value
9 matches
Mail list logo