Тема: В чому помилка ??? (Не запускається програма)
Потрібно з файлу зчитати текст і вивести в мемо. По програмі чи ще цієї теми не вчили, тому прийшлось зкопіпастити. [Взяв гріх на душу( ]. Не розумію чому не запускається програма. Хто може допоможіть та поясніть в чому саме проблема ???
unit rd_;
interface
uses
Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Button2: TButton;
Edit1: TEdit;
Memo1: TMemo;
Button1: TButton;
procedure Button2Click(Sender: TObject);
procedure ButtonlClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForml;
implementation
{$R *.dfm}
// Відкриваємо файл
procedure TForm1.Button1Click(Sender: TObject);
var
f: TextFile; // файл
fName: String[80]; // ім'я файлу
buf: string[80]; // буфер для читання з файлу
begin
fName := Edit1.Text; AssignFile(f, fName);
{$!-}
Reset(f); // Відкрити для читання
{$I+}
if IOResult <> 0 then
begin
MessageDlgt 'Помилка доступу до файлу ' + fName,
mtError, [mbOk], 0); exit;
end;
// Читання з файлу
while not EOF(f) do
begin
readln(f, buf); // Прочитати рядок
Memo1.Lines.Add(buf); // Добавити рядок в мемо
end;
CloseFile(f); // закрити файл
end;
// Записати до файлу
procedure TForml.Button2Click(Sender: TObject);
var
f: TextFile; // файл
fName: string[80]; // Ім'я файлу
i: integer;
begin
fName := Edit1.Text;
AssignFile(f, fName);
Rewrite(f); // Відкрити для перезапису
// Записати в файл
for i := 0 to Memo1.Lines.Count do // Рядки нумеруються від нуля
writeln(f, Memo1.Lines[i]);
CloseFile(f); // Закрити файл
MessageDlg('Дані записані в файл ', mtlnformation, [mbOk], 0);
end;
end.