unit Unit1;

interface

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

type
TForm1 = class(TForm)
Tab1: TStringGrid;
Tab2: TStringGrid;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
procedure N2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
n01,m1:integer;
A,B:mas;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Tab1.ColCount:=6;
Tab1.Cells[0,0]:='№';
Tab1.Cells[1,0]:='Фамилия';
Tab1.Cells[2,0]:='Имя';
Tab1.Cells[3,0]:='Пол';
Tab1.Cells[4,0]:='Возраст';
Tab1.Cells[5,0]:='Город';
Tab2.ColCount:=6;
Tab2.Cells[0,0]:='№';
Tab2.Cells[1,0]:='Фамилия';
Tab2.Cells[2,0]:='Имя';
Tab2.Cells[3,0]:='Пол';
Tab2.Cells[4,0]:='Возраст';
Tab2.Cells[5,0]:='Город';
end;

procedure TForm1.N2Click(Sender: TObject);
var i:integer;
RowCount:integer;
begin
n01:=StrToInt(InPutBox('Ввод','Введите размер группы','Не более 18'));
Tab1.RowCount:=n01+1;
For i:=1 to Tab1.RowCount-1 do
begin
Tab1.Cells[0,1]:=IntToStr(i);
A[i].fam:=InPutBox('Ввод','Введите фамилию','');
Tab1.Cells[1,i]:=A[i].fam;
A[i].name:=InPutBox('Ввод','Введите имя','');
Tab1.Cells[2,i]:=A[i].name;
A[i].pol:=InPutBox('Ввод','Введите пол','');
Tab1.Cells[3,i]:=A[i].pol;
A[i].age:=StrToInt(InPutBox('Ввод','Введите возраст',''));
Tab1.Cells[4,i]:=IntToStr(A[i].age);
A[i].address:=InPutBox('Ввод','Введите город','');
Tab1.Cells[5,i]:=A[i].address;

end;
end;

procedure TForm1.N3Click(Sender: TObject);
var i:integer;
begin
Tab2.RowCount:=n01+1;
For i:=1 to Tab2.RowCount-1 do
begin
Tab2.Cells[0,1]:=IntToStr(i);
Tab2.Cells[1,i]:=A[i].fam;
Tab2.Cells[2,i]:=A[i].name;
Tab2.Cells[3,i]:=A[i].pol;
Tab2.Cells[4,i]:=IntToStr(A[i].age);
Tab2.Cells[5,i]:=A[i].address;

end;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
Sort_Stud(A,n01);
N3Click(Sender);
end;

procedure TForm1.N5Click(Sender: TObject);
var adres1:ss;
age2:integer;
begin
Poisk_Stud(A,n01,m1,B);
N3Click(Sender);
end;

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

end.





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