Fórum Localizar uma palavra em um memo #327317
11/08/2006
0
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
Curtir tópico
+ 0Posts
11/08/2006
Marco Salles
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
12/08/2006
Marcos Fernando
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
12/08/2006
Marco Salles
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
12/08/2006
Marcos Fernando
thanks
Gostei + 0
12/08/2006
Marco Salles
thanks
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)