txt

Question

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

Aroldo Zanela · Answer

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;

Anonymous · Answer

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];

Aroldo Zanela · Answer

Outra forma:[code:1:e988a34fd6]var Arquivo: TStringList;begin  Arquivo := TStringList.Create;  Arquivo.LoadFromFile(�servidorcaminhoarquivo.txt�);  Edit1.Text := Arquivo.Strings&#91;Arquivo.count-1&93;;  Arquivo.Free;end;[/code:1:e988a34fd6]...

F�rum txt #152083