unit Unit1;

interface

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

type
TForm1 = class(TForm)
Tab1: TStringGrid;
Tab2: TStringGrid;
MainMenu1: TMainMenu;
ZAPISI1: TMenuItem;
Sozdmas1: TMenuItem;
Vivmas1: TMenuItem;
Obrabmas1: TMenuItem;
Vixod1: TMenuItem;
Clear1: TMenuItem;
Poisk1: TMenuItem;
Oprogram1: TMenuItem;
Sortirfam1: TMenuItem;
ClearAll1: TMenuItem;
Uslovie1: TMenuItem;
sammolod1: TMenuItem;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure Vixod1Click(Sender: TObject);
procedure Sozdmas1Click(Sender: TObject);
procedure Poisk1Click(Sender: TObject);
procedure Clear1Click(Sender: TObject);
procedure Viv_isxodmas1Click(Sender: TObject);
procedure Sortirfam1Click(Sender: TObject);
procedure ClearAll1Click(Sender: TObject);
procedure Uslovie1Click(Sender: TObject);
procedure sammolod1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
n1,n,max:integer;
a,b:mas;
implementation

{$R *.dfm}
uses Unit3;
procedure TForm1.Clear1Click(Sender: TObject);
var // ochistkr Tab2
i,j:integer;
begin
for j:=0 to Tab2.ColCount do
for i:=1 to Tab2.RowCount-1 do
Tab2.Cells[j,i]:='';

end;

procedure TForm1.ClearAll1Click(Sender: TObject);
var // ochistit Tab1 and Tab2
i,j:integer;
begin
for j:=0 to Tab1.ColCount do
for i:=1 to Tab1.RowCount-1 do
Tab1.Cells[j,i]:='';
for j:=0 to Tab2.ColCount do
for i:=1 to Tab2.RowCount-1 do
Tab2.Cells[j,i]:='';
end;

procedure TForm1.FormCreate(Sender: TObject);

begin
Tab1.ColCount:=4;
Tab1.Cells[0,0]:='№ ';
Tab1.Cells[1,0]:= 'Фамилия';
Tab1.Cells[2,0]:='Gryppa';
Tab1.Cells[3,0]:='God';
Tab2.Cells[0,0]:='№ ';
Tab2.Cells[1,0]:= 'Фамилия';
Tab2.Cells[2,0]:='Gryppa';
Tab2.Cells[3,0]:='God';
end;

procedure TForm1.Poisk1Click(Sender: TObject);
var
nomgr:ss;
i:integer;
begin
nomgr:=InPutBox('VVOD','vved gryppu','');
Form_Poisk(a,n,nomgr,b,n1);
Tab2.RowCount:=n1+1;
for i:=1 to Tab2.RowCount-1 do
begin
Tab2.Cells[0,i]:= IntToStr(i);
Tab2.Cells[1,i]:=b[i].fam;
Tab2.Cells[2,i]:=b[i].gryppa;
Tab2.Cells[3,i]:=IntTostr(b[i].god);
end;
end;

procedure TForm1.sammolod1Click(Sender: TObject);
var // sam molod v isxod massiv
imax:integer;
begin
Molod_stud(a,n,imax);
label1.Caption:='sam_molod:'+a[imax].fam +' '+a[imax].gryppa+' '+IntTostr(a[imax].god) ;

end;

procedure TForm1.Sortirfam1Click(Sender: TObject);
begin // sortir isxodn massiva zapisei
Sort_mas_fam(a,n);
Viv_isxodmas1Click(Sender);
end;

procedure TForm1.Sozdmas1Click(Sender: TObject);
var
i:integer;
begin
n:=StrToInt(InputBox('VVOD','Vved kol',''));
Tab1.RowCount:=n+1;
for i:=1 to Tab1.RowCount-1 do
begin
Tab1.Cells[0,i]:=IntTostr(i);
a[i].fam:= InPutBox('VVOD','vved famil','');
Tab1.Cells[1,i]:=a[i].fam;
a[i].gryppa:= InPutBox('VVOD','vved gryppu','');
Tab1.Cells[2,i]:= a[i].gryppa;
a[i].god:=StrToInt(InputBox('VVOD','vved god',''));
Tab1.Cells[3,i]:=IntToStr(a[i].god);
end;
if i>=Tab1.RowCount then ShowMessage('VVOD ZAVERchen');

// vivod isxod v Tab2
{ Tab2.RowCount:=n+1;
for i:=1 to Tab2.RowCount-1 do
begin
Tab2.Cells[0,i]:= IntToStr(i);
Tab2.Cells[1,i]:=a[i].fam;
Tab2.Cells[2,i]:=a[i].gryppa;
Tab2.Cells[3,i]:=IntTostr(a[i].god);
end; }
end;

procedure TForm1.Uslovie1Click(Sender: TObject);
begin
Form3.Show;
end;

procedure TForm1.Viv_isxodmas1Click(Sender: TObject);
var
i:integer;
begin
Tab2.RowCount:=n+1;
for i:=1 to Tab2.RowCount-1 do
begin
Tab2.Cells[0,i]:= IntToStr(i);
Tab2.Cells[1,i]:=a[i].fam;
Tab2.Cells[2,i]:=a[i].gryppa;
Tab2.Cells[3,i]:=IntTostr(a[i].god);
end;
end;

procedure TForm1.Vixod1Click(Sender: TObject);

begin
Close;
end;

end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.