como remover palavras de uma frase....???
20/01/2006
0
Tenho uma TStringList com palavras para remover ex:
´as´ ´os´ ´em´ ´para´
e tenho uma frase...
´todas as pessoas sao programadoras´
queria saber como faço pra remover dessa frase a palavra ´as´
tentei fazer aki mas ele tava removendo de todas as palavras...
entao ficava assim...
´tod pess sao programador´
quero tirar apenas as palavras repetidas na frase... e nao as letras de uma palavra inteira....
alguem sabe como fazer isso?
valeu :)
´as´ ´os´ ´em´ ´para´
e tenho uma frase...
´todas as pessoas sao programadoras´
queria saber como faço pra remover dessa frase a palavra ´as´
tentei fazer aki mas ele tava removendo de todas as palavras...
entao ficava assim...
´tod pess sao programador´
quero tirar apenas as palavras repetidas na frase... e nao as letras de uma palavra inteira....
alguem sabe como fazer isso?
valeu :)
Salsa
Curtir tópico
+ 0
Responder
Posts
20/01/2006
Wilson Brito
Function RemoverPalavras(Frase,Palavra_Remover:String): String; Var Aux: String; begin Aux := ´ ´ + Frase + ´ ´; Aux := StringReplace(Aux,´ ´+Palavra_Remover+´ ´,´ ´,[rfReplaceAll]); Result := Copy(Aux,2,Length(Aux)-1); end; procedure TForm1.Button1Click(Sender: TObject); begin Edit2.Text := RemoverPalavras(Edit1.Text,´as´); end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)