Localizar uma palavra em um memo

Delphi

11/08/2006

Galera eu preciso saber a posição de uma palavra dentro de um memo
assim:


Sexta-feira 11 de agosto de 2006 às 16:25

ai eu procuraria por agosto e ele me informa a posição do útiltimo caractere que seria o ´O´ e a posição é 24, ai eu jogo mais um e sei q o proximo cactere será um ´ ´,

Thanks


Marcos Fernando

Marcos Fernando

Curtidas 0

Respostas

Marco Salles

Marco Salles

11/08/2006

ai eu jogo mais um e sei q o proximo cactere será um ´ ´,


desculpe , mas voce não comeu nenhuma palavra nessa frase não ???

ficou meio sem saber.... Pelo menos para mim :cry: :cry: :cry:


GOSTEI 0
Marcos Fernando

Marcos Fernando

11/08/2006

desculpe , mas voce não comeu nenhuma palavra nessa frase não ???


realmente mais isso não implica na compreensão, a palavra é ´Caractere´ mais só qro saber a posição de uma palavra pesquisada em um memo, pode ser a posição do primeiro ou o último caractere...

Thanks


GOSTEI 0
Marco Salles

Marco Salles

11/08/2006

tempere a gosto :

procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer;
 coluna:Integer;
 linha:integer;
begin
Linha:=memo1.Lines.Count;
for i:=0 To Linha-1 do
  begin
    Coluna:=PosEx(edit1.text,memo1.Lines.Strings[i],1);
      While Coluna > 0 DO
       begin
        showmessage(´Linha no :´+Inttostr(i)+´ Coluna : ´+inttostr(coluna));
         if messagedlg (´Deseja continuar a Pesquisa na mesma Lina´,mtconfirmation,
                         [mbok,mbcancel],0) = mrok then
             Coluna:=PosEx(edit1.text,memo1.Lines.Strings[i],Coluna+length(edit1.text))
         else
           break;
      end;
  end;
end;



GOSTEI 0
Marcos Fernando

Marcos Fernando

11/08/2006

Show de bola, deu blz

thanks


GOSTEI 0
Marco Salles

Marco Salles

11/08/2006

Beleza .....

thanks


GOSTEI 0
POSTAR