Fórum listar caracters. #185073
29/09/2003
0
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
Curtir tópico
+ 0Posts
29/09/2003
Marcelo Saviski
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
29/09/2003
Micheletti
desde já muito obg. :oops:
Gostei + 0
29/09/2003
Marcelo Saviski
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
29/09/2003
Micheletti
Gostei + 0
29/09/2003
Marconi
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
29/09/2003
Marcelo Saviski
Delete ela, e delete tambem as outras que derem erro
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)