Unconfigured Ad Widget

Collapse

Anúncio

Collapse
No announcement yet.

Pesquisa em Memo

Collapse
X
 
  • Filter
  • Tempo
  • Show
Clear All
new posts

  • Font Size
    #1

    Duvida Pesquisa em Memo

    Olá pessoal,

    estou com uma dúvida. Tenho um memo e alguns edits, o memo tem um texto.
    Ae quero pegar partes de palavras desse texto que tem no memo e jogar nos edits. Por exemplo:

    Tenho um texto no memo que no meio tem a seguinte frase: Meu nome é: Carlos do forum GH. Ae quero pegar so o q vem depois dos : no caso o nome e jogar no edit, logo depois no mesmo texto em outra frase qualquer como: Minha Idade é: 18 anos. Jogar isso no edit.


    Procurei na net e achei a função pos, mas ae tem q da a posição do texto, só que ele está em um memo e não sei a sus´posição.


    Muito Obrigado a todos...

  • Font Size
    #2
    Bom amigo vpcê pode fazer assim :
    Memo1.text:=edit1.text
    Coloque o code acima no button.
    Explicação..
    := siginifica " recebe"
    intão o memo1 vai "receber" o edit1.text.
    Espero ter ajudado.

    Comment


    • Font Size
      #3
      Postado Originalmente por nubatikaas Ver Post
      Bom amigo vpcê pode fazer assim :

      Coloque o code acima no button.
      Explicação..
      := siginifica " recebe"
      intão o memo1 vai "receber" o edit1.text.
      Espero ter ajudado.
      Não é nada disso cara. Eu quero é pesquisar no memo determinada coisa e não q o memo receba nada. Entedeu?

      Comment


      • Font Size
        #4
        Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...
        Ver se ajuda
        ...Programando...

        Comment


        • Font Size
          #5
          ja tento usar o pos?

          Comment


          • Font Size
            #6
            Já tentei usar o pos sim amigo.
            Soultt, não conseguir pq quero copiar o que está depois da palavra nome, e não sei qual é essa palavra que vem depois.

            Obrigado!

            Comment


            • Font Size
              #7
              Se você não sabe qual a palavra faz um if com um limitador para quando o copy chegar nele parar de copiar
              ...Programando...

              Comment


              • Font Size
                #8
                Ae parceiros, consegui! Fiz sem querer aqui, deixa ver se lembro. Foi assim:

                var
                i: integer;
                begin
                for i:=0 to Memo1.Lines.Count -1 do
                begin
                if pos('Nome:', Memo1.Lines[i]) > 0 then
                begin
                Edit1.Text:= copy(memo1.Lines[i], 13, 19);
                end; end; end;

                Vlw galera pela ajuda, mas fui olhar bem e era muito facil. Hehe

                Comment

                X
                Working...
                X