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()
----- 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]
