ringgrid1.Cells[0,i];.edinizm:=stringgrid1.Cells[1,i];.kolichestvo:=StrToInt(stringgrid1.Cells[2,i]);.cena:=StrToFloat(stringgrid1.Cells[3,i]);(check,x);;(check);;TForm2.Button2Click(Sender: TObject); (check, «check»); reset (check); i:=1; not eof (check) do(check,x);.Cells[0,i]:=x.naimlek;.Cells[1,i]:=x.edinizm;.Cells[2,i]:=IntToStr(x.kolichestvo);.Cells[3,i]:=FloatToStr(x.cena);:=i+1;;(check);;TForm2.Button3Click(Sender: TObject);n,i:longint;(check,«check»);reset(check);seek(check,fileSize(check));:=strtoint(edit1.Text);i:=1 to n do.naimlek:=stringgrid1.Cells[0,i];.edinizm:=stringgrid1.Cells[1,i];.kolichestvo:=strtoint(stringgrid1.Cells[2,i]);.cena:=strtofloat(stringgrid1.Cells[3,i]);(check,x);;(check);;TForm2.Button4Click(Sender: TObject);s:integer;:integer;(check1,«check1»);reset(check);rewrite(check1);:=strtoint(edit2.Text);s:=0;not eof (check) do:=s +1; n=s then read (check, x) (check, x); (check1, x);;; (check); closefile (check1); (check1); rewrite ( check); not eof (check1) do (check1, x); write (check, x);; (check); closefile (check1);; TForm2.Button5Click (Sender: TObject); (check, «check») ; reset (check);:=strtoint (edit1.Text); (check, n - 1);.naimlek:=stringgrid1.Cells[0,n];.edinizm:=stringgrid1.Cells[1,n];.kolichestvo:=strtoint(stringgrid1.Cells[2,n]);.cena:=strtofloat(stringgrid1.Cells[3,n]);(check,x);(check);;TForm2.Button6Click(Sender: TObject); zp: array [1 .. 50] of z1;: z1;, k, n, i: integer; (check, «check»); (check);:=1; not eof (check) do (check, zp [i]);:=i +1;; (check);:=i - 1; i:=1 to n do:=i; j:=i +1 to n dozp [j]. naimlek , Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Grids;=class (TForm): TStringGrid;: TButton;: TButton;: TButton;: TButton;: TButton ;: TLabel;: TEdit;: TEdit;: TLabel;: TLabel;: TButton;: TButton;: TButton; Button7Click (Sender: TObject); StringGrid1Click (Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button5Click (Sender: TObject); Button4Click (Sender: TObject); Button6Click (Sender: TObject); FormCreate (Sender: TObject); Button8Click (Sender: TObject);
{Private declarations}
{Public declarations};=record: string [20];: integer;;: TForm3;, sorg1: file of z2;: z2;, i: integer;
{$ R *. dfm} TForm3.Button7Click (Sender: TObject);;; TForm3.StringGrid1Click (Sender: TObject);. Cells [0,0]:="Найменування ліки»; . Cells [1,0]:=«Термін зберігання»;; TForm3.Button1Click (Sender: TObject); (sorg, «sorg»); rewrite (sorg);:=StrToInt (edit1.Text); i: =1 to n do.naimlek:=stringgrid1.Cells[0,i];.srokchran:=StrToInt(stringgrid1.Cells[1,i]);(sorg,y);;(sorg);;TForm3.Button2Click(Sender: TObject); (sorg, «sorg»); reset (sorg); i:=1; not eof (sorg) do(sorg,y);.Cells[0,i]:=y.naimlek;.Cells[1,i]:=IntToStr(y.srokchran);:=i+1;;(sorg);;TForm3.Button3Click(Sender: TObject);n,i:longint;(sorg,&...
