quot;Desmontarquot; uma Palavra..

Question

Ol� pessoal, tudo bem? Espero q sim.. antes de mais nada, um Feliz Natal...Bom, minha d�vida � a seguinte.. tenho um gerador de palavras q funciona assim: o usu�rio digita um nome, um numero inicial, ...

Dataclass · Answer

Fiz uma procedure levando em considera��o a exist�ncia de 2 Memos:

memoPalavrasCompletas: TMemo;
memoPalavrasDesmontadas: TMemo;

Voc� ter� de adapta-la mas segue a id�ia :

procedure TForm1.desmotaLinhas;
var i:integer;//vari�vel usada no loop
    tamanhoNome:integer;//variav�l que receber� o tamanho do NOME
    tamanhoLinhaOriginal:integer;//variav�l que receber� o tamanho da linha
begin
  //capturando o tamanha do NOME
  tamanhoNome := length(�Wolverine #�);

  //varrendo o Memo original
  for i:=0 to  memoPalavrasCompletas.Lines.Count-1 do
  begin
    //capturando o  tamanhao da linha atual
    tamanhoLinhaOriginal := length(memoPalavrasCompletas.Lines.Strings[i]);
    //jogando as palavras desmontadas no outro memo
    memoPalavrasDesmontadas.Lines.Add(copy (memoPalavrasCompletas.Lines.Strings[i],tamanhoNome+1,tamanhoLinhaOriginal));
  end;

end;

Aersoftware · Answer

DataClass, funcionou perfeitamente.. s� nao entendi muito bem essa parte..

memoPalavrasDesmontadas.Lines.Add(copy (memoPalavrasCompletas.Lines.Strings[i],tamanhoNome+1,tamanhoLinhaOriginal));

O q exatamente ela faz?? Ou melhor, como.. pq pelo q entendi, ela pega a palavra inteira e tira o tamanho do nome.. � isso?

Allan Elias Ramos :roll:

F�rum quot;Desmontarquot; uma Palavra.. #263409