N�mero da Linha de um Memo depois de localizar uma palavra.

Question

Boa Tarde!Tenho um memo...nele eu coloquei um resultado de uma pesquisa no sql serverir�o ter varias linhas neste memo...o q eu quero �:Localizar a palavra �objetivo� dentro do memo e eu ler a linha q...

Marco Salles · Answer

acho que funfa:[quote:3657a11f95]memo1.Lines.IndexOf(�Objetivo�)[/quote:3657a11f95]...

Marco Salles · Answer

[quote:7c90ffdd2b]acho que funfa: Cita��o: memo1.Lines.IndexOf(�Objetivo�) [/quote:7c90ffdd2b]   Desculpa , eu entendi errado... A palavra Objetivo faz parte de um contexto , e n�o � uma palavra isolada..Eu n�o conhe�o nenhm m�todo da VCL que retorne isso .. Nen mesmo nenhuma propriedade do FindDialog , a n�o ser fazer esta busca na m�o e trazer o resultado ......

Diegus · Answer

[quote:040d3de5af=�Marco Salles�][quote:040d3de5af]acho que funfa: Cita��o: memo1.Lines.IndexOf(�Objetivo�) [/quote:040d3de5af]   Desculpa , eu entendi errado... A palavra Objetivo faz parte de um contexto , e n�o � uma palavra isolada..Eu n�o conhe�o nenhm m�todo da VCL que retorne isso .. Nen mesmo nenhuma propriedade do FindDialog , a n�o ser fazer esta busca na m�o e trazer o resultado ...[/quote:040d3de5af]�Objetivo� � uma das palavras dentro do texto.......

Micheus · Answer

[b:a25256e940]Diegus[/b:a25256e940], veja se esta alternativa lhe serve.

- Troque seu componente TMemo por um TRichEdit;
- Defina a propriedade PlainText = False (caso julgue necess�rio mant�-lo o mais parecido com um TMemo);
- Ap�s colocado o resultado dentro do RichEdit, para localizar, utilize algo como:

function FindValue(RichEdit :TRichEdit; StrToFind :string) :boolean;
var
  FoundPos :Integer;
begin
  FoundPos := RichEdit.FindText(StrToFind, 0, Length(RichEdit.Text), []);
  Result := FoundPos <> -1;
  if Result then
  begin
   // necess�rio para que possamos obter o posicionamento 
   // na linha e coluna aonde o texto se encontra
    RichEdit.SelStart := FoundPos;
   // evita que seja mostrada qualquer sele��o
    RichEdit.SelLength := 0;
  end;
end;

// utilizando...
var
  StrLinha :string;
begin
  ...
  if FindValue(RichEdit1, �Objetivo�) then
  begin
   // se encontrou o texto, estaremos posicionados na linha aonde ele apareceu
    StrLinha := RichEdit1.Lines[RichEdit1.CaretPos.Y];
    ...
  end;
  ...
end;

Se for necess�rio utilizar uma busca cont�nua (n ocorr�ncias at� o t�rmino do texto), h� necessidade de adapta��o da fun��o.

Espero ter ajudado.

Marco Salles · Answer

Ha se puder usar o [b:1c6968ca16]RichEdit[/b:1c6968ca16] pude tb fazer:

function Retornar(RichEdit:TRichEdit;pesquisar :string):String; begin with RichEdit do result:=Lines.Strings[Perform(EM_LINEFROMCHAR,FindText(pesquisar, 0,Length(Text),[]),0)]; end;

procedure TForm1.Button3Click(Sender: TObject); begin showmessage(Retornar(RichEdit1,edit1.text)); end;

P:S quando retornar vazio � porque n�o encontrou

Diegus · Answer

Valeu ae....Fiz um pouco diferente... O meu objetivo era ler a linha em q a palavra �Objetivo� estivesse...Fiz o seguinte:[code:1:46ccaebcfe]  //*****OBJETIVO  if pos(�Objetivo�, adoq_Textotext.asString) <> 0 then  begin    ls_Var := Copy(adoq_Textotext.asString, pos(�Objetivo�, adoq_Textotext.asString), length(adoq_Textotext.asString) - Pos(�Objetivo�,adoq_Textotext.asString) + 1);    adoq_PesquisacalcObjetivo.Value := trim(copy( ls_Var,                                             1,                                             pos(chr(13),ls_Var)));[/code:1:46ccaebcfe]Valeu pela aten��o!...

Diegus · Answer

Valeu ae....Fiz um pouco diferente... O meu objetivo era ler a linha em q a palavra �Objetivo� estivesse...Fiz o seguinte:[code:1:d9635c0769]  //*****OBJETIVO  if pos(�Objetivo�, adoq_Textotext.asString) <> 0 then  begin    ls_Var := Copy(adoq_Textotext.asString, pos(�Objetivo�, adoq_Textotext.asString), length(adoq_Textotext.asString) - Pos(�Objetivo�,adoq_Textotext.asString) + 1);    adoq_PesquisacalcObjetivo.Value := trim(copy( ls_Var,                                             1,                                             pos(chr(13),ls_Var)));[/code:1:d9635c0769]Valeu pela aten��o!...

Marco Salles · Answer

Se for para usar String , melhor com a Fun��o PosEx , voce economia uma Fun��o Copy de cara

posInicial:=pos(�objetivo�,adoq_Textotext.asString); if posInicial <> 0 Then begin posFinal:=PosEx(char(13),adoq_Textotext.asString,posInicial); ls_Var := Copy(adoq_Textotext.asString,posInicial,posFinal-posInicial); end;