listar caracters.

Delphi

29/09/2003

to tentando fazer um aplicativom que crie listas em colunas.

aaa
aab
aac
aad
aae
aaf
aag
aah
...
quando chegar no ultimo caracter ele modifica toda lista p:

aba
abb
abc
abd
abe

quando ele tiver modificado as 3 colunas p completo,
aumentarar mais uma coluna.


Micheletti

Micheletti

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

29/09/2003

Const
NumCaracteres = 26;
Caracteres : array[1..NumCaracteres ] of Char(´A´, ´B´, ... , ´Z´);
[color=blue:ea2dc2cc8b]{COLOQUE TODOS OS CARACTERES QUE VC PRESISA USAR AQUI, e altere NumCaracteres = 26 para o nº de caracteres que vc usouu}[/color:ea2dc2cc8b]

depois faz assim

var
Col1, Col2, Col3 : integer;
s : string;
begin
s := ´´;
for Col1 := 1 to NumCaracteres do
for Col2 := 1 to NumCaracteres do
for Col3 := 0 to NumCaracteres do
s := s + #1013 + Caracteres[Col1] + Caracteres[Col2] + Caracteres[Col3];

[color=blue:ea2dc2cc8b]//Coloque um Memo no form[/color:ea2dc2cc8b] Memo1.Text := s;
end;


GOSTEI 0
Micheletti

Micheletti

29/09/2003

como e onde aplico esse cod.
desde já muito obg. :oops:


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

29/09/2003

procedure TForm1.Button1Click(Sender : TObject);
Const 
  NumCaracteres = 26; 
  Caracteres : array[1..NumCaracteres ] of Char(´A´, ´B´, ... , ´Z´); 
  {COLOQUE TODOS OS CARACTERES QUE VC PRESISA USAR AQUI, e  altere NumCaracteres = 26 para o nº de caracteres que vc usou} 
var 
  Col1, Col2, Col3 : integer; 
  s : string; 
begin 
  s := ´´; 
  for Col1 := 1 to NumCaracteres do 
    for Col2 := 1 to NumCaracteres do 
      for Col3 := 0 to NumCaracteres do 
       s := s + 1013 + Caracteres[Col1] + Caracteres[Col2] + Caracteres[Col3]; 

  //Coloque um Memo no form
  Memo1.Text := s; 
end;


Coloque um Button e um Memo, coloque o código acima no evento OnClick do Button


GOSTEI 0
Micheletti

Micheletti

29/09/2003

deu erro nessa linha aqui=> [color=red:186fc4945d]procedure TForm1.Button1Click(Sender : TObject); [/color:186fc4945d]


GOSTEI 0
Marconi

Marconi

29/09/2003

Voce criou o button1 ???

Quando voce cria, a Procedure Button1Click(Sender : TObject) é gerada automaticamente associada ao form1.

Se deu erro, é porque voce deve ter copiado o simplesmente o código do
Marcelo.

Marconi


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

29/09/2003

deu erro nessa linha aqui=> [color=red:47ca201c9a]procedure TForm1.Button1Click(Sender : TObject); [/color:47ca201c9a]


Delete ela, e delete tambem as outras que derem erro


GOSTEI 0
POSTAR