Apoio wrote:
> bem eu fiz aqui :
>
> procedure TForm1.Button1Click(Sender: TObject);
> var cur : currency;
>
> begin
> cur:= 343434123204.54;
> edit1.Text:=FormatFloat('###,##0.00',cur);
Você não precisa desse monte de jogo da velha. Use apenas ,0.00
--
Joao Morais
> end;
>
> end.
>
> o resultado é : 343.434.123.204,54
>
> acho q vc nao precisa de uma função pra isso somente o comando formatfloat()
>
>
>
>
> ----- 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 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);
> Result := StringReplace(Result, '.', ',', [rfReplaceAll]);
> end;
>
> Ex: FormatarCurr2D( 123.45, 15) > retorna '000000000123,45'
>
> Tô achando feio esse código! Tem como fazer melhor??
>
> Obrigado
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
