Criar Sequências literais no delphi

Delphi

08/02/2003

E ai galera beleza?

Tenho uma dúvida que creio que seja simples. Criar sequências literais no Delphi, porque só consegui criar com números através desta rotina. que joga a sequências num richEdit. Coloco essa rotina no OnTimer;

var
I,n:Integer;
S:String;
begin
I:=1+n-1;
n:=I+1;
S:=IntToStr(n);
RichEdit1.Lines.Add(S);
end;

Essa Rotina cria uma sequência do numeros, mas, eu quero uma que crie uma sequência de letras;

E todas as sequências devem ter no minimo seis caracteres tipo: ´aaaaaa´, ´aaaaab´, ´aaaaac´,etc, etc, etc.

desde já valeu.


Toshio

Toshio

Curtidas 0

Respostas

Anonymous

Anonymous

08/02/2003

Caro Toshio.
Nao entendi direito o seu problema.
Se possivel explique novamente.
Farei o possivel para ajudar.
Edy Ikeoka
edyikeoka@yahoo.com


GOSTEI 0
Toshio

Toshio

08/02/2003

nessa rotina que eu coloquei ela faz o seguinte joga num RichEdit números em sequência 1,2,3,4,5........., e eu uso uma função que formata ele antes de jogar no RichEdit completando com zero as seis casas que preciso ficando assim:
000001
000002
000003
000004
mas eu não consegui fazer uma rotina que crie uma sequência literal tipo:
aaaaaa
aaaaab
aaaaac
aaaaad
tá entendendo;


GOSTEI 0
Edy Ikeoka

Edy Ikeoka

08/02/2003

Caro Toshio.
Lendo novamente sei exatamente o que vc deseja.
Vc quer uma sequencia de letras agrupadas em 6 caracteres, onde um a um se alteraria as letras.
Ex. aaaaaa, aaaaab, aaaaac ........ aaaaaz, aaaaba, aaaabb, aaaabc.
Isso seria como uma sequencia de probabilidades.
Eu ja fiz isso uma vez mas com uma sequencia de numeros da sena.
Basta alterar os numeros jogados pelas letras do alfabeto.
Se for isso que vc deseja, posso te enviar.
Abracos.
Edy Ikeoka.


GOSTEI 0
POSTAR