Контрольная работа по "Программирование"

    procedure Button4Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form2: TForm2; 

implementation 

uses Unit1; 

{$R *.dfm} 

//////////////////////////////////////////////

procedure save1;

var

   f: TextFile;       // файл

   fName: String[80]; // имя файла

   i: integer;

begin 

Form2.SaveDialog1.FileName:=fn; 

if Form2.SaveDialog1.FileName<>'' then

Form2.SaveDialog1.Execute;

fName := Form2.SaveDialog1.FileName; 

if fName<>'' then  begin 

fName := fName;

fN := fName; 

//if StrRScan(fN,'.txt') then

AssignFile(f, fName+'.txt'); 

try

   Rewrite(f);  // открыть для перезаписи

   // запись в файл

   for i:=0 to Form2.Memo1.Lines.Count do // строки нумеруются с нуля

   writeln(f, Form2.Memo1.Lines[i]);

   s:=0;

   Form2.Caption:=fn;

   Form2.SaveDialog1.FileName:=fn;

   CloseFile(f); // закрыть файл 

except

on EInOutError do

begin

ShowMessage('Ошибка доступа к файлу '+ fName);

exit;

end;

end;

end; 

end;

///////////////////////////////////////////////////////

procedure save;

var

   f: TextFile;       // файл

   fName: String[80]; // имя файла

   i: integer;

begin 

if Form2.SaveDialog1.FileName<>'' then

Form2.SaveDialog1.Execute;

fName := Form2.SaveDialog1.FileName; 

if fName<>'' then  begin 

fName := fName+'.txt';

AssignFile(f, fName); 

try

   Rewrite(f);  // открыть для перезаписи

   // запись в файл

   for i:=0 to Form2.Memo1.Lines.Count do // строки нумеруются с нуля

   writeln(f, Form2.Memo1.Lines[i]);

   s:=0;

   CloseFile(f); // закрыть файл 

except

on EInOutError do

begin

ShowMessage('Ошибка доступа к файлу '+ fName);

exit;

end;

end;

end; 

end;

/////////////////////////////////////////////////////

procedure open;

var

   f: TextFile;       // файл

   fName: String[80]; // имя файла

   buf: String[80];   // буфер для чтения из файла

begin

if Form2.OpenDialog1.FileName<>'' then

Form2.OpenDialog1.FileName:='';

Form2.OpenDialog1.Execute;

fName := Form2.OpenDialog1.FileName;

fn := Form2.OpenDialog1.FileName;

Form2.Caption:=fn; 

if fName<>'' then  begin

try

   AssignFile(f, fName);

   Reset(f);  // открыть для чтения 

if IOResult <> 0 then

begin

MessageDlg('Ошибка доступа к файлу ' + fName,

mtError,[mbOk],0);

exit;

end;

   // чтение из файла

while not EOF(f) do

begin

readln(f, buf);       // прочитать строку из файла

Form2.Memo1.Lines.Add(buf); // добавить строку в поле Memo1

end;

CloseFile(f); // закрыть файл

except 

begin

ShowMessage('Ошибка доступа к файлу '+ fName);

exit;

end;

end;

end; 

end;

////////////////////////////////////////////////

procedure TForm2.Button1Click(Sender: TObject);

begin

Form2.close;

end; 

procedure TForm2.Button3Click(Sender: TObject);

begin

save1;

end; 

procedure TForm2.Button2Click(Sender: TObject);

begin

Form2.Memo1.Clear;

open;

end; 

procedure TForm2.FormCreate(Sender: TObject);

begin

s:=0;

p:=0;

p:=p+1;

fn:='Новый'+IntToStr(p);

Form2.Caption:=fn;

end; 

procedure TForm2.Memo1KeyPress(Sender: TObject; var Key: Char);

begin

s:=1;

end; 

procedure TForm2.Button4Click(Sender: TObject);

begin

if s=1 then save;

p:=p+1;

fn:='Новый'+IntToStr(p);

Form2.Caption:=fn;

Form2.Memo1.Clear;

end; 

end.

 

 

3. Пример  работы программы:

 

 

Лабораторная  работа №5

Управление  программой с помощью  компонентов ScrollBar, RadioButton, CheckBox.

Цель  работы: Изучить основные свойства и методы компонентов ScrollBar, RadioButton, CheckBox..

Постановка  задачи: Написать программу смешивания цветов. При этом должен быть организован диалог, как показано ниже.

1)Листинг программы: 
 

unit Unit1; 

interface 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, ComCtrls, AppEvnts, StdCtrls; 

type

  TForm1 = class(TForm)

    ApplicationEvents1: TApplicationEvents;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    ScrollBar1: TScrollBar;

    ScrollBar2: TScrollBar;

    ScrollBar3: TScrollBar;

    Panel1: TPanel;

    Panel2: TPanel;

    CheckBox1: TCheckBox;

    CheckBox2: TCheckBox;

    CheckBox3: TCheckBox;

    RadioGroup1: TRadioGroup;

    Panel3: TPanel;

    Button1: TButton;

    Panel4: TPanel;

    Panel5: TPanel;

    Panel6: TPanel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure CheckBox1Click(Sender: TObject);

    procedure CheckBox2Click(Sender: TObject);

    procedure CheckBox3Click(Sender: TObject);

    procedure RadioGroup1Click(Sender: TObject);

    procedure ScrollBar1Change(Sender: TObject);

    procedure ScrollBar2Change(Sender: TObject);

    procedure ScrollBar3Change(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form1: TForm1;

  rec:trect;

implementation 

{$R *.dfm} 

procedure TForm1.FormCreate(Sender: TObject);

begin

rec.Left:=0;

rec.Top:=0;

rec.Right:=279;

rec.Bottom:=39;

end; 
 

procedure TForm1.Button1Click(Sender: TObject);

begin

close;

end; 

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

if CheckBox1.Checked=False then

ScrollBar1.Enabled:=False else

ScrollBar1.Enabled:=True;

end; 

procedure TForm1.CheckBox2Click(Sender: TObject);

begin

if CheckBox2.Checked=False then

ScrollBar2.Enabled:=False else

ScrollBar2.Enabled:=True;

end; 

procedure TForm1.CheckBox3Click(Sender: TObject);

begin

if CheckBox3.Checked=False then

ScrollBar3.Enabled:=False else

ScrollBar3.Enabled:=True;

end; 

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

if RadioGroup1.ItemIndex=1 then

Panel3.Visible:=False else

Panel3.Visible:=True;

end; 

procedure TForm1.ScrollBar1Change(Sender: TObject);

begin

  Panel4.Color:=rgb(ScrollBar1.Position,0,0);

  Panel1.Color:=rgb(ScrollBar1.Position,ScrollBar2.Position,ScrollBar3.Position);

  Label4.Caption:=inttostr(ScrollBar1.Position);

end;