txt

Delphi

04/04/2003

como faço pra ler a ultima linha de um arquivo txt?
valey


Anonymous

Anonymous

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

04/04/2003

Coloque um edit e um opendialog no formulário para testar o exemplo abaixo. Se o arquivo for muito grande e de tamanho fixo, você pode optar por pegar o tamanho total, dividir pelo comprimento de cada linha e depois se pocisionar na último. Caso seja um arquivo pequeno, o exemplo abaixo é adequado:

var
  F: TextFile;
  S: string;
begin
  if OpenDialog1.Execute then
  begin
    AssignFile(F, OpenDialog1.FileName);
    Reset(F);
    // Lê o arquivo até o fim
    While not Eof(F) do
    begin
    Readln(F, S);
end;
    // Coloca a última linha num Edit
    Edit1.Text := S;
    CloseFile(F);
  end;
end;



GOSTEI 0
Anonymous

Anonymous

04/04/2003

Cara, tem um jeito facinho, mas é meio gambiarra, coloque um memo no form, deixe ele como visible false. este componente tem a propriedade memo.lines.loadfromfile(´nomedoseuarquivo.txt´), ai é só ler a última linha por exemplo:

edit1.text:=memo.lines.string[memo.lines.count-1];


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

04/04/2003

Outra forma:

var Arquivo: TStringList;
begin
  Arquivo := TStringList.Create;
  Arquivo.LoadFromFile(´\\servidor\caminho\arquivo.txt´);
  Edit1.Text := Arquivo.Strings[Arquivo.count-1];
  Arquivo.Free;
end;



GOSTEI 0
POSTAR