Paulo Casagrande wrote:
> Obrigado pela ajuda, mas preciso que o retorno seja:
>
> 000000000123,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);
>> var cur : currency;
>>
>> begin
>> cur:= 343434123204.54;
>> edit1.Text:=FormatFloat('###,##0.00',cur);
>> end;
>>
>> end.
>>
>> o resultado é : 343.434.123.204,54
>>
>> acho q vc nao precisa de uma função pra isso somente o comando formatfloat()
>>
>>
>>
>
>> 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
>>
>
>
>
