ajuda com richedit e listbox

[Gabrielllll]

Olá pessoal, estou com umas duvidas, como faço o seguinte , tenho a palavra no richedit , a palavra e "teste" essa palavra "teste" tem 4 dela no richedit , como faço pra quando ela achar essa palavra ela adicionar as 4 no ListBox?

aguardo..!

[Douglas Soares]

Opa, facil, eheheh:

Adicione um botão no seu form e coloque isso:

procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
for i := 0 to RichEdit1.Lines.Count - 1 do
begin
if RichEdit1.Lines.Strings[i] = 'teste' then
ListBox1.Items.Add(RichEdit1.Lines.Strings[i])
end;
end;

Abraços

[Gabrielllll]

Super agradecido.!

vlw mesmo douglas...

[Douglas Soares]

10 Reais... ehehehe to aqui pra isso :rolleyes: