Bom não custa tentar certo?
Na verdade consegui colocar tudo numa função... não testei se reproduz o
problema, mas ta aí
PS: NÃO FIZ A ROTINA, não me perguntem por que o cara usou tipo WORD
function montaMascara(const aValor: string; aItemAdicionar: Char;
aAdicionar_a_cada: Word): string;
var
aTotParcial,aTotal : Word;
begin
Result := '';
aTotParcial := 1;
for aTotal := Length(aValor) downto 1 do
begin
IntToStr(aTotal); //Bug delphi, fazer assim senao faz TO
Result := aValor[aTotal] + Result;
if aTotParcial = aAdicionar_a_cada then
begin
//Somente adicionar "aItemAdicionar" se nao acabou de varrer string...
if aTotal > 1 then
Result := aItemAdicionar + Result
else
Exit; //Acabou o tinha que fazer...
aTotParcial := 1;
end
else
begin
inc(aTotParcial);
Continue;
end;
end;
end;
De: [email protected] [mailto:[EMAIL PROTECTED] Em nome de Davi
Eduardo Borges Wall
Enviada em: terça-feira, 8 de janeiro de 2008 17:43
Para: [email protected]
Assunto: RES: [delphi-br] função for next
Hahaha
Eu ri muito quando li esse post do Joao.
Infelizmente eu não conseguiria te disponibilizar nem se tentasse, a rotina é
enorme e dependente de outros módulos.
De: [email protected] <mailto:delphi-br%40yahoogrupos.com.br>
[mailto:[email protected] <mailto:delphi-br%40yahoogrupos.com.br> ]
Em nome de Joao Morais
Enviada em: terça-feira, 8 de janeiro de 2008 17:36
Para: [email protected] <mailto:delphi-br%40yahoogrupos.com.br>
Assunto: Re: [delphi-br] função for next
Clovis iTelefonica wrote:
> Ja inicializei a variavel com x:=0 e continua o mesmo erro
> Mas obrigado assiim mesmo
Cara, eu tô verde de curiosidade para conhecer esse erro. Por gentileza,
mande um .zip para os arquivos da lista, ou em pvt que eu publico para o
pessoal, para que eu possa ver o tal bug com os próprios olhos.
--
Joao Morais
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
