Leitura de arquivo txt no pascal
03/03/2020
0
Boa tarde Galera preciso de uma ajuda, estou tentando ler um arquivo txt porém estou conseguindo apresentar somente a ultima linha, ao invés de apresentar o TXT inteiro.
Segue o modelo do meu txt
teste
teste
tes
tes
teste
Código que eu já fiz:
AssignFile(Arq,''C:\Bsoftsistemas\teste.txt'');
Reset(Arq);
while not eof(Arq) do
begin
Readln(Arq, Linha);
end;
MessageDlg(linha,mtConfirmation,[mbOK],0);
CloseFile(Arq);
Segue o modelo do meu txt
teste
teste
tes
tes
teste
Código que eu já fiz:
AssignFile(Arq,''C:\Bsoftsistemas\teste.txt'');
Reset(Arq);
while not eof(Arq) do
begin
Readln(Arq, Linha);
end;
MessageDlg(linha,mtConfirmation,[mbOK],0);
CloseFile(Arq);
Felipe Andrade
Curtir tópico
+ 0
Responder
Post mais votado
09/03/2020
procedure TFP.Button1Click(Sender: TObject);
Var
Memo_: TMemo;
CaminhoArq: string;
I, Linha_Memo: Integer;
begin
CaminhoArq := 'C:\\Bsoftsistemas\\teste.txt';
Memo_ := TMemo.Create(nil);
WITH Memo_ DO
BEGIN
Parent := FP;
Visible := FALSE;
Lines.LoadFromFile(CaminhoArq);
Lines[0];
//Retorna texto de cada linha
for I := 0 to Memo_.Lines.Count-1 do
begin
MessageDlg(Memo_.Lines[I], mtConfirmation, [mbOK], 0);
end;
//Retorna todo o texto
MessageDlg(Memo_.Text, mtConfirmation, [mbOK], 0);
Free;
END;
end;
Var
Memo_: TMemo;
CaminhoArq: string;
I, Linha_Memo: Integer;
begin
CaminhoArq := 'C:\\Bsoftsistemas\\teste.txt';
Memo_ := TMemo.Create(nil);
WITH Memo_ DO
BEGIN
Parent := FP;
Visible := FALSE;
Lines.LoadFromFile(CaminhoArq);
Lines[0];
//Retorna texto de cada linha
for I := 0 to Memo_.Lines.Count-1 do
begin
MessageDlg(Memo_.Lines[I], mtConfirmation, [mbOK], 0);
end;
//Retorna todo o texto
MessageDlg(Memo_.Text, mtConfirmation, [mbOK], 0);
Free;
END;
end;
Raimundo Pereira
Responder
Clique aqui para fazer login e interagir na Comunidade :)