Varrer em busca de palavra...

[leoprofessor 0]

Alguem sabe como varrer dentro de um arquivo .txt em busca de uma palavra?

Exemplo, tenho o arquivo abaixo chamado teste.txt dentro de uma pasta chamada c:\testeDeArquivo\

 

ZCZC LEO002

GG SBBRZXCP SBBRZXIM SBGRYMYX SBCWYMYX SBGLYMYX SBREYMYX

010301 SBRJYMYX

SIBQTA SBRJ 010300

AAXX 01034 83755 41556 62012 1//// 2//// 40099 5//// 71022 81530 =

 

 

 

 

 

 

 

NNNN

 

dai a palavra que tenho que encontrar dentro desse arquivo acima é QTA (negrito).

Alguém pode me ajudar?

[Rodrigo Miss 1]

Opa kra ... beleza?

você pode fazer alguma coisa neste sentido:

 

 

var  Arq: TextFile;  Path,Linha: string;begin  Path:= 'C:\'; //aki vai a pasta em questao  AssignFile(Arq,Path + 'teste.txt');  Reset(Arq);  while not Eof(Arq) do  begin	Readln(Arq,Linha);	if (Pos('QTA',Linha) >0) then	begin	  ShowMessage('A String informada foi localizada!');	end;  end;  CloseFile(Arq);

[leoprofessor 0]

funcionou!Valeu mano.vou só adaptar o código as minhas necessidades. obrigado.

[Rodrigo Miss 1]

otimo fera!!!q bom q resolveu seu problema ... abraço