00:01 

point_black
Все, что живет в нашем воображении, может стать реальностью.
tz=record
N:byte;
Gr:string[8];
Fam:string[15];
Age:byte;
end;
tF=file of tz;
tMas=array[1..nm] of tz;
var
F1,F2,F3:tF;
z:tz;
S:string;
Mas:tMas=(
(N:1;Gr:'СМ8-21';Fam:'Иванов';Age:18;),
(N:2;Gr:'СМ8-21';Fam:'Кутузов';Age:23;),
(N:3;Gr:'СМ8-21';Fam:'Багратион';Age:20;),
(N:4;Gr:'СМ8-21';Fam:'Барклай';Age:19;),
(N:5;Gr:'ИУ2-12';Fam:'Тормасов';Age:18;),
(N:6;Gr:'ИУ2-12';Fam:'Атанасов';Age:22;),
(N:7;Gr:'ИУ2-12';Fam:'Петров';Age:21),
(N:8;Gr:'ИУ2-12';Fam:'Гайкин';Age:19;)
);
Form1: TForm1;
R:Boolean;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin //Обработчик формы
StringGrid1.ColCount:=4; //Число колонок
StringGrid1.RowCount:=15; //Число строк
//Для выделения:
StringGrid1.FixedRows:=1; //строк под заголовок
StringGrid1.FixedCols:=0; //столбцов под заголовок
StringGrid1.ColWidths[2]:=120; //ширина 2-го столбца
StringGrid1.Width:=300; //ширина всей таблицы
StringGrid1.Cells[0,0]:='Номер';
StringGrid1.Cells[1,0]:='Группа';
StringGrid1.Cells[2,0]:='Фамилия';
StringGrid1.Cells[3,0]:='Возраст';
StringGrid1.Options:=StringGrid1.Options+[goEditing];
end;

procedure TForm1.N2Click(Sender: TObject);
//Обработчик Очистить
var i,j:byte;
begin
for i:=1 to StringGrid1.RowCount do
for j:=0 to StringGrid1.RowCount-1 do
StringGrid1.Cells[j,i]:='';
end;

procedure TForm1.N3Click(Sender: TObject);
begin //Обработчик Выход
Close;
end;

procedure TForm1.N11Click(Sender: TObject);
var i:byte;
begin//Обработчик создать файл 1
AssignFile(F1,'C:\Users\Дарья\Desktop\Шаблон М2\FF1.dat');
Rewrite(F1); //открытие для записи
for i:=1 to nm do
write(F1,mas[i]);
CloseFile(F1);
end;

procedure TForm1.N12Click(Sender: TObject);
var i:byte;
begin//Обработчик открыть файл 1
AssignFile(F1,'C:\Users\Дарья\Desktop\Шаблон М2\FF1.dat');
Reset(F1); //открытие для чтения
i:=0;
while not EOF(F1) do
begin
read(F1,z);
i:=i+1;
StringGrid1.Cells[0,i]:=IntToStr(z.N);
StringGrid1.Cells[1,i]:=z.Gr;
StringGrid1.Cells[2,i]:=z.Fam;
StringGrid1.Cells[3,i]:=IntToStr(z.Age);
end;
CloseFile(F1);
end;

procedure TForm1.N21Click(Sender: TObject);
var i:byte;
begin//Обработчик создать файл 2
AssignFile(F2,'C:\Users\Дарья\Desktop\Шаблон М2\FF2.dat');
Rewrite(F2); //открытие для записи
for i:=1 to nm do
begin
if mas[i].Age>=20 then
write(F2,mas[i]);
end;
CloseFile(F2);
end;

procedure TForm1.N22Click(Sender: TObject);
var i:byte;
begin//Обработчик открыть файл 2
AssignFile(F2,'C:\Users\Дарья\Desktop\Шаблон М2\FF2.dat');
Reset(F2); //открытие для чтения
i:=0;
while not EOF(F2) do
begin
read(F2,z);
i:=i+1;
StringGrid1.Cells[0,i]:=IntToStr(i);
StringGrid1.Cells[1,i]:=z.Gr;
StringGrid1.Cells[2,i]:=z.Fam;
StringGrid1.Cells[3,i]:=IntToStr(z.Age);
end;
CloseFile(F2);
end;

procedure TForm1.N4Click(Sender: TObject);
var
i,j,w,k:byte;
z1,z2:tz;
begin //Обработчик обработки файла
AssignFile(F2,'C:\Users\Дарья\Desktop\Шаблон М2\FF2.dat');
Reset(F2); //открытие для записи
For i:=0 to FileSize(F2)-1 do
begin
k:=0;
While kZ2.Fam[1] then begin
seek(F2,k);
Z2.N:=k+1;
Z1.N:=k+2;
Write(F2,Z2,Z1);
end;
k:=k+1;
end;
end;
end;

procedure TForm1.N5Click(Sender: TObject);
var
i,j:byte;
begin//Обработчик открытия обработанного файла
AssignFile(F2,'C:\Users\Дарья\Desktop\Шаблон М2\FF2.dat');
Reset(F2); //открытие для чтения
i:=0;
while not EOF(F2) do
begin
read(F2,z);
i:=i+1;
StringGrid1.Cells[0,i]:=IntToStr(i);
StringGrid1.Cells[1,i]:=z.Gr;
StringGrid1.Cells[2,i]:=z.Fam;
StringGrid1.Cells[3,i]:=IntToStr(z.Age);
end;
CloseFile(F2);
end;

end.

@музыка: Depeche Mode - Dream On

URL
   

Синее небо *__*

главная