bom dia, comunicação tmemo

Delphi

24/10/2008

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

Marlon Ribeiro

Curtidas 0

Respostas

Marlon Ribeiro

Marlon Ribeiro

24/10/2008

imaginemos assim


um edit um button e um memo

ai 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


GOSTEI 0
Jc

Jc

24/10/2008

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.


GOSTEI 0
POSTAR