F�rum Formatar um edit? #344457

13/08/2007

Pessoal antes eu usava esta fun�ao para formatar um edit com 3 zeros e um ponto, mais agora esta me dando problema e preciso mudar esta fun�ao ou uma outra que seja.

{se��o das fun��es}
//--Para Formatar o edit e incluir 3 zeros
function FormataEditZero(const EditZero: string): string;
var
  I: integer;
Const
  M = �.000�;
begin
  Result := ��;
  for I := 1 to Length(EditZero) do
    if EditZero[I] in [�0�..�9�] then
      Result := Result + EditZero[I]
    else
    begin
         if I = 1 then
            Result := Result+EditZero[I]
         else
           Result := Result+M+EditZero[I];
    end;
     if Length(Result) > 0 then
        Result := Result + M;
end;

Esta fun�ao formata assim no edit
exemplo se eu digitar no edit
/220*150/100

formata desta forma
/220.000*150.000/100.000

e preciso que fique assim
/220.000*[b:41403bbc3e]150[/b:41403bbc3e]/100.000

Como fa�o isso pessoal? Ou seja sempre o valor do meio nao pode existir o ponto e os tres zeros.

Grato
Adriano

Adriano_servitec

Curtir t�pico

+ 0

Responder