1.3 Листингпрограммы
type book=record
avt:string[20];
naz:string[30];
end;
var
Form1: TForm1;
f:file of book;
w:book;
a:array[1..100]of book;
fname:string;
n,i,k:integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
panel1.Hide; panel2.Hide;
panel3.Hide; panel4.Hide;
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
SaveDialog1.Title:='Создатьфайл';
if SaveDialog1.Execute then
begin
fname:=SaveDialog1.FileName;
AssignFile(f,fname);
Rewrite(f);
end;
Panel1.Show;
Button1.Hide; Button2.Hide; BitBtn1.Hide;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
w.avt:=edit1.text;
w.naz:=edit2.text;
write(f,w);
edit1.clear; edit2.clear;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
CloseFile(f);
panel1.Hide;
panel2.show;
BitBtn1.show;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
reset(f); n:=0;
while not eof(f) do
begin
n:=n+1;
read(f,a[n]);
end;
closeFile(f);
for i:=1 to n-1 do
for k:=1 to n-i do
if a[k].avt> a[k+1].avt then
begin w:=a[k]; a[k]:=a[k+1]; a[k+1]:=w; end;
rewrite(f);
for i:=1 to n do write(f,a[i]);
closeFile(f);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
panel4.Show; memo1.clear; memo2.clear;
reset(f);
while not eof(f) do
begin
read(f,w);
memo1.lines.add(w.avt);
memo2.lines.add(w.naz);
end;
closeFile(f);
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
OpenDialog1.Title:='Открытьфайл';
if OpenDialog1.Execute then
begin
fname:=OpenDialog1.FileName;
AssignFile(f,fname);
Reset(f);
end;
Panel2.Show;
Button1.Hide; Button2.Hide; BitBtn1.Hide;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
Button1.show; Button2.show; BitBtn1.show;
panel2.Hide;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
panel2.Hide; panel3.Show; bitbtn1.Hide;
memo1.clear; memo2.clear;
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
memo1.clear; memo2.clear;
reset(f);
while not eof(f) do
begin
read(f,w);
if w.avt=edit3.text then
begin
memo1.lines.add(w.avt);
memo2.lines.add(w.naz);
end;
end;
closeFile(f);
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
panel3.Hide; panel4.Hide;
Button1.show; Button2.show; BitBtn1.show;
end;
end.
1.4 Контрольный пример
2.4 Типизированные файлы
1 Постановка задачи
1.1Написать программу, содержащую режимы создания типизированного файла (каждая запись содержит фамилию студента и оценки по физике, математике и химии), чтения ранее созданного файла, записи содержимого в текстовый файл и вывода списка студентов, не имеющих четверок
1.2 Компоненты программы
Имя компонента |
Тип компонента |
Свойства компонента |
Значение компонента |
Событие |
Edit1 |
T Edit |
Text |
Ввод |
OnClick |
Edit2 |
T Edit |
Text |
Ввод |
OnClick |
Edit3 |
T Edit |
Text |
Ввод |
OnClick |
Edit4 |
T Edit |
Text |
Ввод |
OnClick |
Label1 |
T Label |
Caption |
Фамилия |
OnClick |
Label2 |
T Label |
Caption |
Физика |
OnClick |
Label3 |
T Label |
Caption |
Химия |
OnClick |
Label4 |
T Label |
Caption |
Математика |
OnClick |
Memo1 |
TMemo |
Lines |
Вывод |
OnClick |
Memo2 |
TMemo |
Lines |
Вывод |
OnClick |
Memo3 |
TMemo |
Lines |
Вывод |
OnClick |
Memo4 |
TMemo |
Lines |
Вывод |
OnClick |
Button1 |
TButton |
Caption |
ввести |
OnClick |
Button1 |
TButton |
Caption |
Создать |
OnClick |
Button1 |
TButton |
Caption |
Читать |
OnClick |
Button1 |
TButton |
Caption |
Сохранить |
OnClick |
Button1 |
TButton |
Caption |
Вывести |
OnClick |
BitBtn1 |
TBitBtn |
Caption |
Закрыть |
OnClick |
OpenDialog1 |
TOpenDialog |
|
|
OnCanClose |
SaveDialog1 |
TSaveDialog |
|
|
OnCanClose |
SaveDialog1 |
TSaveDialog |
|
|
OnCanClose |