Добавил:
Kaz
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
unit lab6;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Buttons, StdCtrls;
type
TForm1 = class(TForm)
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Button1: TButton;
Button2: TButton;
BitBtn1: TBitBtn;
Edit1: TEdit;
Label1: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Label2: TLabel;
Label3: TLabel;
Memo1: TMemo;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
tcex=record
nai:string[40];
kol:integer;
nom:integer;
end;
var
fz:file of tcex;
ft:textfile;
cex:array[1..100] of tcex;
nzap:integer;
filenameZ,filenameT:string;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
memo1.Clear;
button3.Hide;
nzap:=0;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
nzap:=nzap+1;
with cex[nzap] do begin
nai:=edit1.Text;
kol:=strtoint(edit2.text);
nom:=strtoint(edit3.text);
memo1.Lines.Add(nai+' '+inttostr(kol)+' '+inttostr(nom));
end;
write(fz,cex[nzap]);
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
opendialog1.Title:='создать новый файл';
if opendialog1.Execute then
begin
filenamez:=opendialog1.FileName;
assignfile(fz,filenamez);
rewrite(fz);
end;
button3.Visible:=true;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
filenamez:=opendialog1.FileName;
assignfile(fz,filenamez);
reset(fz);
end;
while not eof(fz) do begin
nzap:=nzap+1;
read(fz,cex[nzap]);
with cex[nzap] do
memo1.Lines.Add(nai+' '+inttostr(kol)+' '+inttostr(nom));
end;
button3.Visible:=true;
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 nzap do
with cex[i] do writeln(ft,i:4,'.',nai,kol,nom);
closefile(ft);
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
closefile(fz);
end;
procedure TForm1.Button1Click(Sender: TObject);
var i,j:word;
wr:tcex;
begin
for i:=1 to nzap-1 do
for j:=i+1 to nzap do
if cex[i].kol<cex[j].kol then begin
wr:=cex[i];
cex[i]:=cex[j];
cex[j]:=wr;
end;
memo1.Clear;
for i:=1 to nzap do
with cex[i] do
memo1.Lines.Add(nai+' '+inttostr(kol)+' '+inttostr(nom));
end;
end.
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Buttons, StdCtrls;
type
TForm1 = class(TForm)
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Button1: TButton;
Button2: TButton;
BitBtn1: TBitBtn;
Edit1: TEdit;
Label1: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Label2: TLabel;
Label3: TLabel;
Memo1: TMemo;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
tcex=record
nai:string[40];
kol:integer;
nom:integer;
end;
var
fz:file of tcex;
ft:textfile;
cex:array[1..100] of tcex;
nzap:integer;
filenameZ,filenameT:string;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
memo1.Clear;
button3.Hide;
nzap:=0;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
nzap:=nzap+1;
with cex[nzap] do begin
nai:=edit1.Text;
kol:=strtoint(edit2.text);
nom:=strtoint(edit3.text);
memo1.Lines.Add(nai+' '+inttostr(kol)+' '+inttostr(nom));
end;
write(fz,cex[nzap]);
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
opendialog1.Title:='создать новый файл';
if opendialog1.Execute then
begin
filenamez:=opendialog1.FileName;
assignfile(fz,filenamez);
rewrite(fz);
end;
button3.Visible:=true;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
filenamez:=opendialog1.FileName;
assignfile(fz,filenamez);
reset(fz);
end;
while not eof(fz) do begin
nzap:=nzap+1;
read(fz,cex[nzap]);
with cex[nzap] do
memo1.Lines.Add(nai+' '+inttostr(kol)+' '+inttostr(nom));
end;
button3.Visible:=true;
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 nzap do
with cex[i] do writeln(ft,i:4,'.',nai,kol,nom);
closefile(ft);
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
closefile(fz);
end;
procedure TForm1.Button1Click(Sender: TObject);
var i,j:word;
wr:tcex;
begin
for i:=1 to nzap-1 do
for j:=i+1 to nzap do
if cex[i].kol<cex[j].kol then begin
wr:=cex[i];
cex[i]:=cex[j];
cex[j]:=wr;
end;
memo1.Clear;
for i:=1 to nzap do
with cex[i] do
memo1.Lines.Add(nai+' '+inttostr(kol)+' '+inttostr(nom));
end;
end.