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

unit Unit1;

interface

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

type
TForm1 = class(TForm)
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
BitBtn1: TBitBtn;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(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
Tmen=record
number:integer;
fam:string[20];
address:string[30];
date:string[20];
end;
var
Form1: TForm1;
fz,fz1:file of Tmen;
ft:textfile;
mens:array[1..100] of tmen;
nzap:integer;
filenamet, filenamez:string;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
memo1.Clear;
button1.Hide;
end;
//------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
inc(nzap);
with mens[nzap] do
begin
name:=edit1.Text;
address:=edit2.Text;
date:=edit3.Text;
number:=nzap;
memo1.Lines.Add(inttostr(number)+' '+edit1.Text+' '+edit2.text+' '+edit3.Text);
end;
write(fz,mens[nzap]);
edit1.Text:=''; edit2.Text:='';
end;
//-----------------------------------------------
procedure TForm1.Button2Click(Sender: TObject);
begin
opendialog1.Title:='Create New File';
if opendialog1.Execute then
begin
filenamez:=opendialog1.FileName;
assignFile(fz,filenamez);
rewrite(fz);
closefile(fz);
rewrite(fz);
button1.Show;
end;
end;
//------------------------------------------------
procedure TForm1.Button3Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
filenamez:=opendialog1.FileName;
assignFile(fz,filenamez);
reset(fz);
nzap:=0;
while not eof(fz) do
begin
nzap:=nzap+1;
read(fz,mens[nzap]);
with mens[nzap] do
begin
memo1.Lines.Add(inttostr(number)+' '+fam+' '+address+' '+date);
end;
end;
button1.Show;
end;
end;
//-------------------------------------------------
procedure TForm1.Button4Click(Sender: TObject);
var x,i,j:integer;
begin
{x:=nzap;
for i:=1 to x-1 do
for j:=i+1 to x do
if ((mens[i].fam=mens[j].fam) or (mens[i].address=mens[j].address)) then
begin
mens[j].fam:='';
dec(nzap);
end;
for i:=2 to x do
if mens[i].fam='' then
for j:=i+1 to x do
mens[j]:=mens[j+1];
memo1.Clear;
for j:=1 to nzap do
with mens[j] do
begin
number:=j;
memo1.Lines.Add(inttostr(number)+' '+edit1.Text+' '+edit2.text+' '+edit3.Text);
end;}
for i:=1 to nzap-1 do
for j:=i+1 to nzap do
if (mens[i].fam=mens[j].fam) or (mens[i].address=mens[j].address) then
mens[i].fam:='';
end;
//-----------------------------------------------
procedure TForm1.Button5Click(Sender: TObject);
var
i:integer;
begin
if savedialog1.Execute then
begin
filenamet:=savedialog1.FileName;
assignFile(fz1,filenamet);
rewrite(fz1);
for i:=1 to nzap do
if mens[i].fam<>'' then write(fz,mens[i]);
closeFile(fz1);
end;
end;
//-----------------------------------------------
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if filenamez<>'' then
closefile(fz);
end;
//-----------------------------------------------
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if filenamez<>'' then
closefile(fz);
end;
end.