Array
(
)

como remover palavras de uma frase....???

Salsa
   - 20 jan 2006

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 :)


Wilson Brito
   - 20 jan 2006

#Código

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;



Salsa
   - 20 jan 2006

valeuuu :)