Acho que é isso:
for qt:=1 to 100 {ou mais} do
for letra:=65 to 90 { A to Z } do begin
xst:='';
for qt1:=1 to qt do xst:=xst+chr(letra);
showmessage('A sequencia é:'+xst);
end;
[]s.
----- Original Message -----
From: Ricardo Lino
To: delphi-br@yahoogrupos.com.br
Sent: Friday, July 11, 2008 4:34 PM
Subject: [delphi-br] Incremento incomum...
Prezados,
Gostaria primeiramente de pedir desculpas pelo assunto ter ficado tão vago,
mas não tinha idéia de como resumir de outra maneira.
Preciso desenvolver uma função para enumerar. Bom vou colocar um exemplo
para ficar mais fácil de explicar e vocês poderem entender.
Bom a função iria gerar um campo texto assim de A até Z quando chegar no Z
ela recomeça com AA até ZZ e AAA até ZZZ assim por diante e de forma
indefinida.
Será que alguém já passou por isso? Tem alguma solução para esse problema?
Ricardo Lino
Tel: +55 (11) 5070-8585
E-mail: [EMAIL PROTECTED]
www.batori.com.br
________________________________
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
