1 .4 Блок схема
Загрузка формы в
область экрана, инициаллизация
дополнительных компонентов
1.5 Листинг программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
Tspravka = class(TForm)
cbx: TComboBox;
but: TButton;
GroupBox1: TGroupBox;
Button2: TButton;
Button3: TButton;
Label1: TLabel;
opis: TMemo;
sv: TSaveDialog;
procedure Button3Click(Sender: TObject);
procedure cbxChange(Sender: TObject);
procedure butClick(Sender: TObject);
procedure opisChange(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
spravka: Tspravka;
implementation
uses Unit2;
{$R *.dfm}
procedure Tspravka.Button3Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure Tspravka.cbxChange(Sender: TObject);
begin
case cbx.ItemIndex of
0:
begin
if FileExists('resurs\pris.txt') then
opis.Lines.LoadFromFile('resurs\pris.txt') else ShowMessage('Нет нужного описания!');
end;
1:
begin
if FileExists('resurs\begs.txt') then
opis.Lines.LoadFromFile('resurs\begs.txt') else
ShowMessage('Нет нужного описания!');
end;
2:
begin
if FileExists('resurs\ifs.txt') then
opis.Lines.LoadFromFile('resurs\ifs.txt') else ShowMessage('Нет нужного описания!');
end;
3:
begin
if FileExists('resurs\cs.txt') then
opis.Lines.LoadFromFile('resurs\cs.txt') else
ShowMessage('Нет нужного описания!');
end;
4:
begin
if FileExists('resurs\whs.txt') then
opis.Lines.LoadFromFile('resurs\whs.txt') else
ShowMessage('Нет нужного описания!');
end;
5:
begin
if FileExists('resurs\reps.txt') then
opis.Lines.LoadFromFile('resurs\reps.txt') else
ShowMessage('Нет нужного описания!');
end;
6:
begin
if FileExists('resurs\fos.txt') then
opis.Lines.LoadFromFile('resurs\fos.txt') else
ShowMessage('Нет нужного описания!');
end;
7:
begin
if FileExists('resurs\gts.txt') then
opis.Lines.LoadFromFile('resurs\gts.txt') else
ShowMessage('Нет нужного описания!');
end;
8:
begin
if FileExists('resurs\wth.txt') then
opis.Lines.LoadFromFile('resurs\wth.txt') else
ShowMessage('Нет нужного описания!');
end;
9:
begin
if FileExists('resurs\ins.txt') then
opis.Lines.LoadFromFile('resurs\ins.txt') else
ShowMessage('Нет нужного описания!');
end;
10:
begin
if FileExists('resurs\preds.txt') then
opis.Lines.LoadFromFile('resurs\preds.txt') else
ShowMessage('Нет нужного описания!');
end;
11:
begin
if FileExists('resurs\hth.txt') then
opis.Lines.LoadFromFile('resurs\hth.txt') else
ShowMessage('Нет нужного описания!');
end;
12:
begin
if FileExists('resurs\ords.txt') then
opis.Lines.LoadFromFile('resurs\ords.txt') else
ShowMessage('Нет нужного описания!');
end;
13:
begin
if FileExists('resurs\ups.txt') then
opis.Lines.LoadFromFile('resurs\ups.txt') else
ShowMessage('Нет нужного описания!');
end;
14:
begin
if FileExists('resurs\cons.txt') then
opis.Lines.LoadFromFile('resurs\cons.txt') else
ShowMessage('Нет нужного описания!');
end;
15:
begin
if FileExists('resurs\cops.txt') then
opis.Lines.LoadFromFile('resurs\cops.txt') else
ShowMessage('Нет нужного описания!');
end;
16:
begin
if FileExists('resurs\pss.txt') then
opis.Lines.LoadFromFile('resurs\pss.txt') else
ShowMessage('Нет нужного описания!');
end;
17:
begin
if FileExists('resurs\lenss.txt') then
opis.Lines.LoadFromFile('resurs\lenss.txt') else
ShowMessage('Нет нужного описания!');
end;
end;
end;
procedure Tspravka.butClick(Sender: TObject);
begin
if sv.Execute then
opis.Lines.SaveToFile(sv.FileName) else
ShowMessage('Не задан путь!');
end;
procedure Tspravka.opisChange(Sender: TObject);
begin
if opis.Text = '' then
but.Enabled:=false else
but.Enabled:=true;
end;
procedure Tspravka.Button2Click(Sender: TObject);
begin
abouts.ShowModal;
end;
end.