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

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons;

type
TForm1 = class(TForm)
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit6: TEdit;
Edit7: TEdit;
Label6: TLabel;
Label7: TLabel;
Memo1: TMemo;
Memo2: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
BitBtn1: TBitBtn;
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
type
tavtobus=record
nreisa:integer;
tipavto:string[50];
place:string[100];
kuda:string[100];
timeot:ttime;
timepr:ttime;
kskolki:ttime;
end;
Var
Fz:file of tavtobus;

Ft:textfile;
avto:array[1..100] of tavtobus;
avtos:array[1..100] of tavtobus;
nzap,nzaps:integer;
FileNameZ,FileNameT:string;
var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.text:='';
Edit2.text:='';
Edit3.text:='';
Edit4.text:='';
Edit5.text:='';
Edit6.text:='';
Edit7.text:='';
Memo1.clear;
Memo2.clear;
button3.Enabled:=false;
nzap:=0;
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
nzap:=nzap+1;
with avto[nzap] do begin
nreisa:=strtoint(Edit1.text);
tipavto:=Edit2.text;
place:=Edit3.text;
timeot:=strtotime(edit4.text);
timepr:=strtotime(edit5.text);
memo1.lines.add(inttostr(nreisa)+' '+tipavto+' '+place+' '+timetostr(timeot)+' '+timetostr(timepr));
end;
write(fz,avto[nzap]);
Edit1.text:='';
Edit2.text:='';
Edit3.text:='';
Edit4.text:='';
Edit5.text:='';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.title:='Создать новый файл';
if OpenDialog1.execute then begin
FilenameZ:=OpenDialog1.Filename;
AssignFile(fz,FilenameZ);
rewrite(fz);
end;
button3.Enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenDialog1.execute then begin
FilenameZ:=OpenDialog1.Filename;
AssignFile(fz,FilenameZ);
Reset(fz);
end;
nzap:=0;
while not eof(fz) do begin
nzap:=nzap+1;
read(fz,avto[nzap]);
with avto[nzap] do
memo1.lines.add(inttostr(nreisa)+' '+tipavto+' '+place+' '+timetostr(timeot)+' '+timetostr(timepr));
end;
button3.Enabled:=true;
end;

procedure TForm1.Button4Click(Sender: TObject);
var i,j,k:word;
nreisa:integer;
tipavto:string[50];
place:string[100];
kuda:string[100];
timeot:ttime;
timepr:ttime;
kskolki:ttime;
st:tavtobus;
begin
nzaps:=0;
kuda:=Edit6.text;
kskolki:=strtotime(Edit7.text);
for i:=1 to nzap do begin
if (avto[i].place=kuda) and (avto[i].timepr<=kskolki) then begin
nzaps:=nzaps+1;
with avtos[nzaps] do begin
nreisa:=avto[i].nreisa;
tipavto:=avto[i].tipavto;
place:=avto[i].place;
timeot:=avto[i].timeot;
timepr:=avto[i].timepr;
memo2.lines.add(inttostr(nreisa)+' '+tipavto+' '+place+' '+timetostr(timeot)+' '+timetostr(timepr));
end;
end;
end;
for k:=1 to nzaps-1 do
for j:=k+1 to nzaps do
if avtos[k].timeot>avtos[j].timeot then begin
st:=avtos[k];
avtos[k]:=avtos[j];
avtos[j]:=st;
end;
Memo2.Clear;
for i:=1 to nzaps do
with avtos[i] do
memo2.lines.add(inttostr(i)+' '+inttostr(nreisa)+' '+tipavto+' '+place+' '+timetostr(timeot)+' '+timetostr(timepr));
end;
procedure TForm1.Button5Click(Sender: TObject);
var i:word;
begin
if SaveDialog1.execute then begin
FilenameT:=saveDialog1.Filename;
AssignFile(ft,FilenameT);
rewrite(Ft);
end;
for i:=1 to nzaps do
with avtos[i] do writeln(ft,i:4,'. ',nreisa:5,' ',tipavto,' ',place,' ',timetostr(timeot),' ',timetostr(timepr));
closefile(ft);
end;


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
closefile(fz);
end;


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
closefile(fz);
end;

end.