Aproveitando o tópico, alguém pode me ajudar denne código:
var
z: integer;
f: TextFile;
texto: String;
begin
AssignFile (f, 'C:\Arquivo.txt');
reset(f);
read(f, texto);
z := AnsiPos('string_a_localizar', texto);
edit1.text:= inttostr (z);
closefile(f); Estou tentando localizado uma string em um arquivo de txt e exibir a localização em um edit. Usando esse código, ele retorna a posição dos caracteres que estão na 1ª linha, mas quando tento procurar um caractere que está nas demais linhas o código me retorna sempre o valo '0'. Como eu faço para resolver isso?