122
MyStringGrid1.cells[2,i]:=Rec.Ug;
MyStringGrid1.cells[3,i]:=Rec.Otm;
MyStringGrid1.cells[4,i]:=Rec.Prim;
MyStringGrid1.RowCount:=i+1;
end;
kol:=i;
closefile(f);
end ㅤ else ㅤ ShowMessage('Файл ㅤ не ㅤ существует!')
end;
{ ㅤ Описание ㅤ процедуры ㅤ нажатия ㅤ кнопки ㅤ 6 ㅤ модуля ㅤ 6 ㅤ }
procedure ㅤ TMyForm5.Button6Click(Sender: ㅤ TObject);
begin
Close;
end;
end.
{ ㅤ Описание ㅤ модуля ㅤ 7 ㅤ программы ㅤ }
unit ㅤ Unit7;
interface
uses
Windows, ㅤ Messages, ㅤ SysUtils, ㅤ Variants, ㅤ Classes, ㅤ Graphics, ㅤ Controls, ㅤ Forms,
Dialogs, ㅤ StdCtrls;
type
{ ㅤ Описание ㅤ использованных ㅤ компонентов ㅤ в ㅤ модуля ㅤ 7 ㅤ }
TMyForm6 ㅤ = ㅤ class(TForm)
MyLabel1: ㅤ TLabel;
123
MyLabel2: ㅤ TLabel;
MyLabel3: ㅤ TLabel;
MyLabel4: ㅤ TLabel;
MyLabe5: ㅤ TLabel;
MyEdit1: ㅤ TEdit;
Edit2: ㅤ TEdit;
Edit3: ㅤ TEdit;
MyComboBox1: ㅤ TComboBox;
Edit4: ㅤ TEdit;
MyButton1: ㅤ TButton;
MyButton2: ㅤ TButton;
{ ㅤ Описание ㅤ использованных ㅤ процедур ㅤ в ㅤ модуле ㅤ 7 ㅤ }
procedure ㅤ MyButton1Click(Sender: ㅤ TObject);
procedure ㅤ FormCreate(Sender: ㅤ TObject);
private
{ ㅤ Private ㅤ declarations ㅤ }
public
{ ㅤ Public ㅤ declarations ㅤ }
end;
var
MyForm6: ㅤ TMyForm6;
implementation
uses ㅤ Unit5, ㅤ Unit3;
{$R ㅤ *.dfm}
{ ㅤ Описание ㅤ процедуры ㅤ создания ㅤ формы ㅤ 6 ㅤ в ㅤ модуле ㅤ 7 ㅤ }
124
procedure ㅤ TMyForm6.FormCreate(Sender: ㅤ TObject);
begin
MyComboBox1.Items.Add('true');
MyComboBox1.Items.Add('false');
if ㅤ Unit5.add=true ㅤ then
begin
MyForm6.MyEdit1.Text:='';
MyForm6.Edit2.Text:='';
MyForm6.Edit3.Text:='';
MyForm6.Edit3.Text:='';
MyForm6.MyComboBox1.SelText ㅤ := ㅤ MyForm5.MyStringGrid1.Cells[3, ㅤ Nomer];
end ㅤ else
begin
MyForm6.MyEdit1.Text:=MyForm5.MyStringGrid1.Cells[0,Nomer];
MyForm6.Edit2.Text:=MyForm5.MyStringGrid1.Cells[1,Nomer];
MyForm6.Edit3.Text:=MyForm5.MyStringGrid1.Cells[2,Nomer];
MyForm6.Edit4.Text:=MyForm5.MyStringGrid1.Cells[4,Nomer];
MyForm6.MyComboBox1.Text:=MyForm5.MyStringGrid1.Cells[3,Nomer];
end;
end;
{ ㅤ Описание ㅤ п роцед у ры ㅤ нажатия ㅤ кнопки ㅤ 1 ㅤ в ㅤ мод уле ㅤ 7 ㅤ }
procedure ㅤ TMyForm6.MyButton1Click(Sender: ㅤ TObject);
var ㅤ d:integer;
begin
if ㅤ Unit5.add ㅤ then
125
begin
Unit5.Kol:=Unit5.Kol+1;
MyForm5.MyStringGrid1.RowCount:= ㅤ Unit5.Kol+1;
d:=Unit5.Kol;
if ㅤ Unit5.kol>0 ㅤ then ㅤ begin
MyForm5.MyButton1.Enabled:=True;
end;
end ㅤ else ㅤ d:=Unit5.Nomer;
MyForm5.MyStringGrid1.Cells[0,d]:=MyEdit1.Text;
MyForm5.MyStringGrid1.Cells[1,d]:=Edit2.Text;
MyForm5.MyStringGrid1.Cells[2,d]:=Edit3.Text;
MyForm5.MyStringGrid1.Cells[4,d]:=Edit4.Text;
MyForm5.MyStringGrid1.Cells[3,d]:=MyForm6.MyComboBox1.Text;
Close;
end;
end.