Carregar um Arquivo Texto para uma Memo em Lazarus ou Delphi

Isso é um procedimento útil para várias aplicações, seja no Lazarus ou no Delphi.

Ao carregar o arquivo texto, ele pode ser usado  em outros objetos.

O processo consiste em:

1. Abrir o arquivo ASSIGNFILE e RESET

2. Ler o arquivo até o final WHILE NOT(EOF(TF)) DO

3. Colocar os dados no Memo

4. Fechar o arquivo

Vamos ao modelo:

Procedure LoadExemplo;
var
  tf : TextFile;
  s : String;
begin
  AssignFile (tf,'exemplo.txt');
  Reset (tf);
  while not(eof(tf)) do
  begin
    ReadLn (tf,s);
    Form1.Memo1.Lines.Add (s);
  end;
  Close (tf);
end;

Qualquer dúvida entre em contato.

Nenhum comentário:

Postar um comentário