Разработка программной системы «Автоматизированная записная книжка», страница 21

Label6.Visible:=false;

BitBtn7.Visible:=false;

ComboBox7.Clear;

ComboBox7.Text:=Label7.Caption;

Label7.Visible:=false;

BitBtn8.Visible:=false;

ComboBox8.Clear;

ComboBox8.Text:=Label8.Caption;

Label8.Visible:=false;

BitBtn9.Visible:=false;

ComboBox9.Clear;

ComboBox9.Text:=Label9.Caption;

Label9.Visible:=false;

BitBtn10.Visible:=false;

Form7.Close;

Form4.Show;

end;

procedure TForm7.ComboBox1Change(Sender: TObject);

begin

Label1.Visible:=true;

BitBtn2.Visible:=true;

end;

procedure TForm7.ComboBox2Change(Sender: TObject);

begin

Label2.Visible:=true;

BitBtn3.Visible:=true;

end;

procedure TForm7.ComboBox3Change(Sender: TObject);

begin

Label3.Visible:=true;

BitBtn4.Visible:=true;

end;

procedure TForm7.ComboBox4Change(Sender: TObject);

begin

Label4.Visible:=true;

BitBtn5.Visible:=true;

end;

procedure TForm7.ComboBox5Change(Sender: TObject);

begin

Label5.Visible:=true;

BitBtn6.Visible:=true;

end;

procedure TForm7.ComboBox6Change(Sender: TObject);

begin

Label6.Visible:=true;

BitBtn7.Visible:=true;

end;

procedure TForm7.ComboBox7Change(Sender: TObject);

begin

Label7.Visible:=true;

BitBtn8.Visible:=true;

end;

procedure TForm7.ComboBox8Change(Sender: TObject);

begin

Label8.Visible:=true;

BitBtn9.Visible:=true;

end;

procedure TForm7.ComboBox9Change(Sender: TObject);

begin

Label9.Visible:=true;

BitBtn10.Visible:=true;

end;

procedure TForm7.BitBtn8Click(Sender: TObject);

begin

with combobox7 do

if FileExists(ComboBox7.Text+'.txt') then

begin

memo1.Lines.LoadFromFile(combobox7.Text+'.txt');

end

else

ShowMessage('файл отсутствует');

end;

procedure TForm7.BitBtn11Click(Sender: TObject);

begin

fontdialog1.Execute;

memo1.Font.Color:=fontdialog1.Font.Color;

memo1.Font.Size:=fontdialog1.Font.Size;

memo1.Font.Name:=fontdialog1.Font.Name;

memo1.font:=fontdialog1.font;end;

procedure TForm7.BitBtn2Click(Sender: TObject);

begin

with combobox1 do

if FileExists(ComboBox1.Text+'.txt') then

begin

memo1.Lines.LoadFromFile(combobox1.Text+'.txt');

end

else

ShowMessage('            файл отсутствует             ');

end;

procedure TForm7.BitBtn3Click(Sender: TObject);

begin

with combobox2 do

if FileExists(ComboBox2.Text+'.txt') then

begin

memo1.Lines.LoadFromFile(combobox2.Text+'.txt');

end

else

ShowMessage('           файл отсутствует              ');

end;

procedure TForm7.BitBtn4Click(Sender: TObject);

begin

with combobox3 do

if FileExists(ComboBox3.Text+'.txt') then

begin

memo1.Lines.LoadFromFile(combobox3.Text+'.txt');

end

else ShowMessage('          файл отсутствует               ');

end;

procedure TForm7.BitBtn5Click(Sender: TObject);

begin

with combobox4 do

if FileExists(ComboBox4.Text+'.txt') then

begin

memo1.Lines.LoadFromFile(combobox4.Text+'.txt');

end

else ShowMessage('          файл отсутствует               ');

end;

procedure TForm7.BitBtn6Click(Sender: TObject);

begin

with combobox5 do

if FileExists(ComboBox5.Text+'.txt') then

begin

memo1.Lines.LoadFromFile(combobox5.Text+'.txt');

end

else ShowMessage('          файл отсутствует               ');

end;

procedure TForm7.BitBtn7Click(Sender: TObject);

begin

with combobox6 do

if FileExists(ComboBox6.Text+'.txt') then

begin

memo1.Lines.LoadFromFile(combobox6.Text+'.txt');

end

else ShowMessage('          файл отсутствует               ');

end;

procedure TForm7.BitBtn9Click(Sender: TObject);

begin

with combobox8 do

if FileExists(ComboBox8.Text+'.txt') then

begin

memo1.Lines.LoadFromFile(combobox8.Text+'.txt');

end

else ShowMessage('          файл отсутствует               ');

end;

procedure TForm7.BitBtn10Click(Sender: TObject);

begin

with combobox9 do

if FileExists(ComboBox9.Text+'.txt') then

egin

memo1.Lines.LoadFromFile(combobox9.Text+'.txt');

end

else ShowMessage('          файл отсутствует               ');

end;end.