2 сем ОАиП экзамен по Шестакович Вячеслав Павлович, 2ой семестр (Шестакович Вячеслав Павлович) / Записи и файлы / аэропорт / unit8

unit Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, ToolWin, ComCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
BitBtn1: TBitBtn;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
StatusBar1: TStatusBar;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Type
TAir=record
NReis: integer;
TypeS:string[10];
PNaz: string[30];
Time: extended;
end;
var
Fz: file of TAir;
Ft: textFile;
FileNameZ, FileNameT: string;
nzap: integer;
Air: array[1..100] of TAir;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Clear; Edit2.Clear; Edit3.Clear; Edit4.Clear;
Memo1.Clear;
Button1.Hide;
nzap:=0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin //ввод записи
Nzap:=nzap+1;
with Air[nzap] do
begin
TypeS:=Edit2.Text;
PNaz:=Edit3.Text;
NReis:=StrToInt(Edit1.Text);
Time:=StrToFloat(Edit4.Text);
Memo1.Lines.Add(FloatToStrF(time,ffFixed,4,2)+' '+TypeS
+' '+PNaz+' '+IntToStr(NReis));
end;
write(Fz,Air[Nzap]);
Edit1.Clear; Edit2.Clear; Edit3.Clear; Edit4.Clear;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin //открытие
Memo1.Clear;
if OpenDialog1.Execute then
begin
FileNameZ:=OpenDialog1.FileName;
AssignFile(Fz,FileNameZ);
Reset(Fz);
end;
nzap:=0;
while not eof(fz) do
begin
inc(nzap);
Read(fz,Air[nzap]);
with Air[nzap] do
Memo1.Lines.Add(FloatToStrF(time,ffFixed,4,2)+' '
+TypeS+' '+PNaz+' '+IntToStr(NReis));
end;
Button1.Show;
end;
procedure TForm1.Button4Click(Sender: TObject);
var i,j:word; a:TAir;
begin //сортировка
for i:=1 to nzap-1 do
for j:=i+1 to nzap do
if Air[i].Time>Air[j].Time then
begin
a:=Air[i];
Air[i]:=Air[j];
Air[j]:=a;
end;
Memo1.Clear;
for i:=1 to nzap do
with Air[i] do
Memo1.Lines.Add(IntToStr(i)+' '+FloatToStrF(time,ffFixed,4,2)+' '
+TypeS+' '+PNaz+' '+IntToStr(NReis));
end;
procedure TForm1.Button5Click(Sender: TObject);
var i: word;
begin //сохранение
SaveDialog1.Title:='Сохранить в текстовом файле';
SaveDialog1.DefaultExt:='.txt';
if SaveDialog1.Execute then
begin
FileNameZ:=SaveDialog1.FileName;
AssignFile(Ft,FileNameZ);
Rewrite(Ft);
end;
for i:=1 to nzap do begin
with Air[i] do
writeln(Ft,i:4,' ',Time:4:2,' ',TypeS,' ',PNaz,' ',NReis:5,' ');
end;
closeFile(Ft);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin //закрытие проги
CloseFile(Fz);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin //создание нового файла
OpenDialog1.Title:='Создать новый файл';
if OpenDialog1.Execute then
begin
FileNameZ:=OpenDialog1.FileName;
AssignFile(Fz,FileNameZ);
Rewrite(Fz);
Button1.Show;
Memo1.Clear;
end;
end;
end.