ESSA � DIFICIL .......

Question

COMO FA�O UMA ESP�CIE DE GERADOR DE PALAVRAS, POR EXEMPLOCOM 4 LETRASAAAAAAABAAACAAADAAAE...ZZZAZZZBZZZCAT�ZZZZ...

Anonymous · Answer

[quote:fd2dcb0f3b=�AlphaBlend�]COMO FA�O UMA ESP�CIE DE GERADOR DE PALAVRAS, POR EXEMPLOCOM 4 LETRASAAAAAAABAAACAAADAAAE...ZZZAZZZBZZZCAT�ZZZZ[/quote:fd2dcb0f3b]Alpha,Eu sei que pra voc� isso � mole. Basta lembrar que a letra A corresponde ao Chr(65) e voc� t� fazendo uma string de comprimento igual a quatro e nosso alfabeto tem 23 letras. Sacou?...

Anonymous · Answer

Pq vc n�o faz o loop usando n�meros e depois mostra a letra correspondente ao n�mero, por exemplo: 1=A, 2=B etc...Acho q n�o � dif�cil...[]�sChristian...

E_gama · Answer

Coloque um [b:f90139121f]TButton[/b:f90139121f] e um [b:f90139121f]TMemo[/b:f90139121f] no formul�rio, e teste ...

procedure TForm1.Button1Click(Sender: TObject);
var TamPalavra, NumPalavras, I: Integer;
    Palavra: array[1..4] of Char;
    Ch     : Char;

begin
  Memo1.Lines.Clear;
  NumPalavras := 1000;

  Palavra[1] := �A�;
  Palavra[2] := �A�;
  Palavra[3] := �A�;
  Palavra[4] := �A�;

  for I := 1 to NumPalavras do
    begin
      Memo1.Lines.Add(Palavra[1] + Palavra[2] + Palavra[3] + Palavra[4]);
      Ch := Palavra[4];
      if Ch <> �Z� then
         Palavra[4] := Chr(Ord(Ch) + 1)
      else
         begin
           Palavra[4] := �A�;
           Ch := Palavra[3];
           if Ch <> �Z� then
             Palavra[3] := Chr(Ord(Ch) + 1)
           else
             begin
               Palavra[3] := �A�;
               Ch := Palavra[2];
               if Ch <> �Z� then
                 Palavra[2] := Chr(Ord(Ch) + 1)
               else
                 begin
                   Palavra[2] := �A�;
                   Ch := Palavra[1];
                   if Ch = �Z� then
                      Break
                   else
                      Palavra[1] := Chr(Ord(Ch) + 1);
                 end;
             end;
         end;
    end;
end;

F�rum ESSA � DIFICIL ....... #147646