bom dia, comunica��o tmemo

Question

ol�, muito obrigado por se demonstrar interesse pela minha causa, bom no caso eu queria que quando inserir uma linha que ja tenha no memo1.lines entao da mensagem d erro, porem por mais que tente nao estou conceguindo, apesar d me parecer facil....

obrigado!

Marlon Ribeiro · Answer

imaginemos assimum edit um button e um memoai eu vo por  a frase no edit1.text �eu sou lindo�....ai este  button eu configuro ele para enviar ao memo, memo1.lines.add(edit1.text), ou algo parecido, ai quando eu reenviar o edit1.text com a mesma mensagem novamente�eu sou lindo� entao da messagebox(�erro�)espero que esteja bem explicado.....obrigado...

Jc · Answer

Se o texto for digitado exatamente igual a linha do Memo, pode-se fazer assim:

for i := 0 to memo1.lines -1 do
   if edit1.text = copy(memo1.lines[i],0,length(memo1.lines[i]) then
      showmessage(�erro�)
      else
      {Fa�a aqui o que quiser se n�o existir a linha igual no memo}

Nem sei se funciona, n�o testei, mas a id�ia � esta.
Posta a� depois, informando se funcionou.

F�rum bom dia, comunica��o tmemo #365457