1.3 Листинг программы

procedure TPictureform.ExitMenuItemClick(Sender: TObject);

begin

Close;

end;

procedure TPictureform.ToolBarMenuItemClick(Sender: TObject);

begin

ToolBarMenuItem.Checked := not ToolBarMenuItem.Checked;

end;

procedure TPictureform.StatusBarMenuItemClick(Sender: TObject);

begin

StatusBarMenuItem.Checked := not StatusBarMenuItem.Checked;

end;

procedure TPictureform.HalfSizeMenuItemClick(Sender: TObject);

begin

HalfSizeMenuItem.Checked := True;

HalfSizePopupItem.Checked := True;

end;

procedure TPictureform.NormalSizeMenuItemClick(Sender: TObject);

begin

NormalSizeMenuItem.Checked := True;

NormalSizePopupItem.Checked:=True;

end;

procedure TPictureform.DoublSizeMenuItemClick(Sender: TObject);

beginDoublSizeMenuItem.Checked :=

True;DoublSizePopupItem.Checked := True;

end;

procedure TPictureForm.EnableCommands(Enable: Boolean);

begin

SaveAsMenuItem.Enabled := Enable;

CloseMenuItem.Enabled := Enable;

HalfSizeMenuItem.Enabled := Enable;

NormalSizeMenuItem.Enabled := Enable;

DoublSizeMenuItem.Enabled :=Enable;

SaveAsMenuItem.Enabled := Enable;

CloseMenuItem.Enabled := Enable;

HalfSizeMenuItem.Enabled := Enable;

HalfSizePopupItem.Enabled:=Enable;

NormalSizeMenuItem.Enabled := Enable;

NormalSizePopupItem.Enabled := Enable;

DoublSizeMenuItem.Enabled := Enable;

DoublSizePopupItem.Enabled := Enable;

end;

procedure TPictureform.OpenMenuItemClick(Sender: TObject);

begin

EnableCommands(True);

end;

procedure TPictureform.CloseMenuItemClick(Sender: TObject);

begin

EnableCommands(False);

end;

end.

1.4 Контрольныйпример

2.3 Текстовые файлы.Диалоги

1 Постановка задачи

1.1Создать файл, содержащий список книг. Предусмотреть возможность сортировки книг по алфавиту по фамилии автора и вывод, как всего списка, так и списка книг заданного автора.

2. Компоненты программы

Имя компонента	Тип компонента	Свойства компонента	Значение компонента	Событие
Panel1	TPanel	Caption		OnClick
Panel2	TPanel	Caption		OnClick
Panel3	TPanel	Caption		OnClick
Panel4	TPanel	Caption		OnClick
Label1	T Label	Caption	Автор	OnClick
Label2	T Label	Caption	Название	OnClick
Edit1	TEdit	Text	Ввод	OnClick
Edit2	TEdit	Text	Ввод
Label3	TLabel	Caption	Автор
Label4	TLabel	Caption	Название
Memo1	TMemo	Lines	Вывод
Memo2	TMemo	Lines	Вывод
Button1	TButton	Caption	Ввести
Button2	TButton	Caption	Сортировка
Button3	TButton	Caption	Закончить
Button4	TButton	Caption	Выбрать	OnClick
Button5	TButton	Caption	Создать	OnClick
Button6	TButton	Caption	Выход	OnClick
Button7	TButton	Caption	Выход	OnClick
Button8	TButton	Caption	Автор	OnClick
Button9	TButton	Caption	Открыть	OnClick
Edit3	TListBox	Text	Ввод	OnClick
Button10	TButton	Caption	Ввести
Button11	TButton	Caption	Вывести
BitBtn1	TBitBtn	Caption	выход
OpenDialog1	TOpenDialog			OnCanClose
SaveDialog1	TSaveDialog			OnCanClose