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
