Obrigado a todos que postaram suas ideias e sugestoes. Assim que eu 
criar o codigo irei postar aqui. Valeu!!


Michel














--- Em delphi-br@yahoogrupos.com.br, Luiz Araujo <[EMAIL PROTECTED]> 
escreveu
> Cria uma string que contenha "ABCDE....Z"
> Coloque um for dentro do outro:
> 
> for i:=1 to length(string) do
>    for j:=1 to length(string) do
>        listbox1.itens.add(string[i]+string[j]);
> 
> Eu não to com delphi na maquina, por isso não testei, mas acho que a
> ideia eh essa!
> 
> 
> On Fri, 7 Jan 2005 11:22:15 -0200, itamar <[EMAIL PROTECTED]> wrote:
> > 
> > ola,
> > tem varias maneiras de fazer esta coisa,
> > 1 - seria declarar uma matriz tipo elementos['aa',ab','ac,....' 
zz']  vai
> > set trablho demais
> > 2 - declarar 1 contante  c1 := 'ABCDE...XYZ'
> > paga com copy(edit1.text,2,1) pega a posicao na postante e 
icrementa de 1
> > se = z incremente incrementa a primeira letra e passa a 2 para A
> > 
> > espera ter ajudado qq manda
> > 
> > e-mail - [EMAIL PROTECTED]
> > MSN  - [EMAIL PROTECTED]
> > Analista de Sistemas
> > itamar roloff
> > -------------------------------------------
> > ----- Original Message -----
> > From: "Michel Kafury Pael" <[EMAIL PROTECTED]>
> > To: <delphi-br@yahoogrupos.com.br>
> > Sent: Friday, January 07, 2005 1:45 AM
> > Subject: [delphi-br] Incremento diferente
> > 
> > Bom pessoal, vou postar um problema que numca vi.
> > 
> > Em um edit a pessoa pode digitar AA, AB, AC até chegar a ZZ e eu
> > tenho um botão para verificar: quando for AA muda para AB; quando 
for
> > AB muda para AC e isso até ZZ. Não tenho idéia de como fazer.
> > 
> > Michel
> > 
> > --
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> > 
> > Para ver as mensagens antigas, acesse:
> >  http://br.groups.yahoo.com/group/delphi-br/messages
> > 
> > Para falar com o moderador, envie um e-mail para:
> >  [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> > 
> > Links do Yahoo! Grupos
> > 
> > --
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> > 
> > Para ver as mensagens antigas, acesse:
> >  http://br.groups.yahoo.com/group/delphi-br/messages
> > 
> > Para falar com o moderador, envie um e-mail para:
> >  [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> > 
> > Links do Yahoo! Grupos
> > 
> > 
> > 
> > 
> > 
> 
> 
> -- 
> Luiz Eduardo D. de Araujo
> [EMAIL PROTECTED]
> -------------------------------------
> Rio de Janeiro - RJ - Brasil
> ICQ: 77662781
> Yahoo! Messenger: luiz_eduardo_araujo
> -------------------------------------
> "The Box Said: Requires MS Windows or Better. So I Installed Linux"





-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

 



Responder a