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

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Edit2: TEdit;
Label2: TLabel;
Edit3: TEdit;
Label3: TLabel;
Edit4: TEdit;
Label4: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
BitBtn1: TBitBtn;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Type
Workers=record
FIO:string[40];
NOTD:string[40];
DOLJ:string[40];
DATA:string[20];
Chislo:integer;
end;

var
a:array[1..100]of integer;
Fz:file of Workers;
Ft:TextFile;
Work:array[1..100] of Workers;
nzap:integer;
FNZ,FNT:string;
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);//ввод записи
var i,k:integer;
s,m:string;
begin
inc(nzap);
with work[nzap] do begin
FIO:=Edit1.Text;
NOTD:=Edit2.Text;
DOLJ:=Edit3.Text;
DATA:=Edit4.Text;

//chislo<->DATA
s:='';m:='';
k:=length(Edit4.Text);
For i:=1 to k do begin
if Edit4.Text[i]<>'.' then s:=s+Edit4.Text[i];
if (Edit4.Text[i]='.') or (i=k) then begin m:=s+m;s:='';end;
end;
CHISLO:=StrToInt(m);
//end

Memo1.Lines.Add(FIO+' '+NOTD+' '+DOLJ+' '+DATA);
end;
write(Fz,work[nzap]);
Edit1.Clear;Edit2.Clear;Edit3.Clear;Edit4.Clear;
end;


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

procedure TForm1.Button3Click(Sender: TObject);//открытие файла
begin
Memo1.Clear;
If OpenDialog1.Execute then begin
FNZ:=OpenDialog1.FileName;
AssignFile(Fz,FNZ);
Reset(FZ);
end;
nzap:=0;
while not(eof(fz)) do begin
inc(nzap);
Read(Fz,work[nzap]);
with work[nzap] do
Memo1.Lines.Add(FIO+' '+NOTD+' '+DOLJ+' '+DATA);
end;
Button1.Show;
end;

procedure TForm1.Button5Click(Sender: TObject);//сохранение
var i:word;
begin
If SaveDialog1.Execute then begin
FNt:=SaveDialog1.FileName;
AssignFile(Ft,FNt);
Rewrite(Ft);
end;
for i:=1 to nzap do
with work[i] do writeln(Ft,i,'. ',FIO,' ',NOTD,' ',DOLJ,' ',DATA,' ');
CloseFile(ft);
end;

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

procedure TForm1.Button4Click(Sender: TObject);
var i,j:word;
st:workers;
begin
For i:=1 to nzap do
for j:=1 to nzap do
if work[i].CHISLO<work[j].CHISLO then begin
st:=work[i];
work[i]:=work[j];
work[j]:=st;
end;
Memo1.Clear;
For i:=1 to nzap do
with work[i] do
Memo1.Lines.Add(IntToStr(i)+' '+FIO+' '+DATA);
end;


end.