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

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Memo1: TMemo;
Memo2: TMemo;
Memo3: TMemo;
LabeledEdit1: TLabeledEdit;
LabeledEdit2: TLabeledEdit;
LabeledEdit3: TLabeledEdit;
BitBtn1: TBitBtn;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type sklad=record
naz:string[50];
kol:integer;
data:tdate;
CHISLO:integer;
end;
var
Form1: TForm1;
a:array[1..100]of integer;
Fz:file of sklad;
Ft:TextFile;
skl:array[1..100] of sklad;
nzap:integer;
FNZ,FNT:string;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
labeledEdit1.Clear;labeledEdit2.Clear;labeledEdit3.Clear;
Memo1.Clear;Memo2.Clear;Memo3.Clear;
Button1.Hide;
nzap:=0;
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;Memo2.Clear;Memo3.Clear;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,k:integer;
s,m:string;
begin
inc(nzap);
with skl[nzap] do begin
naz:=labeledEdit1.Text;
kol:=strtoint(labeledEdit2.Text);
data:=strtodate(labeledEdit3.Text);
s:='';m:='';
k:=length(labeledEdit3.Text);
For i:=1 to k do begin
if labeledEdit3.Text[i]<>'.' then s:=s+labeledEdit3.Text[i];
if (labeledEdit3.Text[i]='.') or (i=k) then begin m:=s+m;s:='';end;
end;
CHISLO:=StrToInt(m);

Memo1.Lines.Add(naz);
Memo2.Lines.Add(inttostr(kol));
Memo3.Lines.Add(datetostr(data));
end;
write(Fz,skl[nzap]);
labeledEdit1.Clear;labeledEdit2.Clear;labeledEdit3.Clear;
end;

procedure TForm1.Button3Click(Sender: TObject);
var kol:integer;
data:tdate;
begin
Memo1.Clear;Memo2.Clear;Memo3.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,skl[nzap]);
with skl[nzap] do
Memo1.Lines.Add(naz);
Memo2.Lines.Add(inttostr(kol));
Memo3.Lines.Add(datetostr(data));
end;
Button1.Show;
end;

procedure TForm1.Button4Click(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 skl[i] do writeln(Ft,i,'. ',naz,' ',kol,' ',data,' ');
CloseFile(ft);
end;

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

end.