ler arquivo txt c�clico

Question

bom dia, estou com determinado problema, tenho um arquivo q preciso ler o mesmo de tempos em tempos, para monitorar determinada a��o, ou seja, c�clico, exemplo a primeira leitura fui at� a linha 100, ...

Joel Rodrigues · Answer

Primeiramente voc� precisar� de uma vari�vel p�blica para armazenar a �ltima posi��o lida. Feito isso, voc� pode carregar o arquivo .txt em um TStringList e iniciar a leitura a partir da vari�vel armazenada.
Permanecendo a d�vida, � s� avisar.

Rodrigo Pereira · Answer

Teria um fragmento de c�digo para ilucidar?Desde j� agrade�o!...

Joel Rodrigues · Answer

Primeiramente declare a vari�vel na se��o private ou public do seu form:

  private
    ultimo_lido : integer;

Ao abrir o form, no evento onCreate, defina um valor inicial 0 para essa vari�vel

procedure TForm1.FormCreate(Sender: TObject);
begin
  ultimo_lido := 0;
end;

Agora, para ler a lista, use a seguinte rotina, adaptando � sua necessidade:

var
  lista : TStringList;
  i : integer;
begin
  lista := TStringList.Create();
  lista.LoadFromFile(d:\lista.txt);

  for i := 1 to 5 do
  begin
    Inc(ultimo_lido); 
    ListBox1.Items.Add(lista.Strings[ultimo_lido]);
  end;

Nesse caso, estou lendo de 5 em 5 itens. Cada vez que essa rotina for executada, eu leio 5 itens sequenciais do arquivo e ponho em um listbox. Vale lembrar que a vari�vel ultimo_lido � zerada ao abrir o form, se voc� precisa mant�-la ap�s fechar o programa, dever� grav�-la em algum local fixo (banco de dados, arquivo, registro do Windows, etc).

Qualquer d�vida, fique � vontade para questionar.

F�rum ler arquivo txt c�clico #415888