[Biatov]

Куда его здесь впихнуть?

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
f: TextFile; // файл
fName: String[80]; // имя файла 
buf: String[80]; // буфер для чтения из файла 
begin
fName := Edit1.Text; AssignFile(f, fName);
{$I-}
Reset(f); // открыть для чтения 
{$I+}
if IOResult <> 0 then begin
MessageDlg('Ошибка доступа к файлу ' + fName,
mtError,[mbOk],0); exit; end;
// чтение из файла 
while not EOF(f) do begin
readln(f, buf); // прочитать строку из файла
Memo1.Lines.Add(buf); // добавить строку в поле Memo1 
end;
CloseFile(f); // закрыть файл
end;
procedure TForm1.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('Данные записаны в файл ',mtInformation,[mbOk],0);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
f: TextFile; // файл
fName: String[80];// имя файла
{i: integer; }
skalar:integer;
x1,y1,x2,y2:integer;
begin
fName := Edit1.Text;
AssignFile(f, fName);
Reset(f); // открыть для чтения
read(f,x1); read(f, y1,x2); read(f,y2);
skalar:=(x1*x2+y1*y2);
Memo1.Text:=Memo1.Text+IntToStr(skalar);
CloseFile(f); // закрыть файл
end;

procedure TForm1.N4Click(Sender: TObject);
begin
  MessageDlg('Лабораторную работу выполнил: ***', mtInformation, [mbOk], 0);
end;

procedure TForm1.N2Click(Sender: TObject);
begin
 MessageDlg('Разработать программу вычисления скалярного произведения векторов.'+#13+'Координаты векторов находятся в файле.'+#13+'Программа должна позволять сформировать исходные векторы.', mtInformation, [mbOk], 0);
end;

procedure TForm1.N3Click(Sender: TObject);
begin
 Close;
end;

end.