База данных Объектно - ориентированное программирование

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
pir=record
  st:array[1..6]of byte;
  end;
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    StringGrid1: TStringGrid;
    Edit4: TEdit;
    Button3: TButton;
    Button4: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  end;
 
var
s,s1:string;
s2:array[1..10]of string;
a:array[1..10] of pir;
b:array[1..10,1..10] of real;
c:array[1..10] of real;
p,min,max:real;
i,j,m,n,k:integer;
f1:textfile;
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
 
begin
 s1:=edit1.Text;
 
 assignfile(f1,s1);
 reset(f1);
   i:=0;
   j:=0;
   n:=1;
 while not seekeof(f1) do
 begin
 i:=i+1;
 read(f1,s);
 s2[i]:=s;
 if i>1 then
 begin
  n:=1;
  for j:=2 to length(s) do
  if  (s[j-1]=' ')and(ord(s[j])>47)and(ord(s[j])<58) then
  begin
  if (ord(s[j+1])>47)and(ord(s[j+1])<58) then
  begin
  a[i-1].st[n]:=strtoint(Copy(s,j,2));
  stringgrid1.Cells[n,i-1]:=copy(s,j,2);
  end
  else
  begin
  a[i-1].st[n]:=strtoint(Copy(s,j,1));
  stringgrid1.Cells[n,i-1]:=copy(s,j,1);
  end;
  
  m:=n;
  k:=i-1;
  n:=n+1;
  end;
 end;
 end;
  closefile(f1);
  for i:=1 to 6 do
 stringgrid1.Cells[i,0]:='Ñòîðîíà_'+inttostr(i);
  for i:=1 to k do
  stringgrid1.Cells[0,i]:='Çàïèñü_'+inttostr(i);
 
  min:=10000;
  max:=0;
  for i:=1 to k do
  begin
  p:=(a[i].st[1]+a[i].st[4]+a[i].st[5])/2;
  b[i,1]:=sqrt(abs(p*(p-a[i].st[1])*(p-a[i].st[4])*(p-a[i].st[5])));
  p:=(a[i].st[2]+a[i].st[5]+a[i].st[6])/2;
  b[i,2]:=sqrt(abs(p*(p-a[i].st[2])*(p-a[i].st[5])*(p-a[i].st[6])));
  p:=(a[i].st[3]+a[i].st[4]+a[i].st[6])/2;
  b[i,3]:=sqrt(abs(p*(p-a[i].st[3])*(p-a[i].st[4])*(p-a[i].st[6])));
  c[i]:=b[i,1]+b[i,2]+b[i,3];
 // edit4.Text:=edit4.Text+floattostr(c[i])+' ';
  if c[i]<min then
  min:=c[i];
  if c[i]>max then
  max:=c[i];
  end;
  edit2.Text:=floattostr(max);
  edit3.Text:=floattostr(min);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
 
   assignfile(f1,s1);
   append(f1);
    for i:=1 to 6 do
    c[i]:= strtofloat(inputbox('Âõîäíûå äàííûå','Ââåäèòå äëèíó',''));
   writeln(f1,'Ïèðàìèäà',k+1,'     ',round(c[1]),'      ',round(c[2]),'      ',round(c[3]),'      ',round(c[4]),'      ',round(c[5]),'     ',round(c[6]));
   closefile(f1);
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
 i:=1+strtoint(edit4.Text);
 assignfile(f1,s1);
 rewrite(f1);
 for j:=1 to i-1 do
 writeln(f1,s2[j]);
 for j:=i+1 to k+1 do
 writeln(f1,s2[j]);
 closefile(f1);
 end;
 
end.