Como ler um arquivo de texto

Delphi

23/07/2005

Amigos , como faço para ler um arquivo de texto.

EX:


no arquido texto tem varias linhas:

LEITE ITAMBE
MACARRÃO SADIA

quero ler linha por linha, da primeira a ultima linha.


Fábio Galvão

Fábio Galvão

Curtidas 0

Respostas

Rjun

Rjun

23/07/2005

var
  Linhas: TStringList;
  i: Integer;
begin
  Linhas := TStringList.Create();
  try
    Linhas.LoadFromFile(NomedoArquivo);
    
    for i := 0 to (Linhas.Count - 1) do
      ShowMessage(Linhas.Strings[i]);
  finally
    FreeAndNil(Linhas);
  end;



GOSTEI 0
POSTAR