unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
const
FileName = 'testfile.txt';
var
FileInput : File of Char;
C : Char;
begin
Button1.Visible := False;
Memo1.Visible := True;
Memo1.Clear;
{$I+}
AssignFile(FileInput, FileName);
try
Reset(FileInput);
while not(EOF(FileInput)) do
begin
Read(FileInput, C);
Memo1.Text := Memo1.Text + C;
end;
CloseFile(FileInput);
except
on E: EInOutError do
ShowMessage('Error: ' + E.ClassName + '/' + E.Message);
end;
end;
end.