Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Procedure ReCalculation;




public

{ Public declarations }

end;

 

  1. В разделе implementation текста модуля Unit1 добавьте процедуру ReCalculation:

 

implementation

 

{$R *.dfm}

 

Procedure TForm1.ReCalculation;

Var

I,J,N,M,A,B,C:Integer;

Begin

N:=StrToInt(Edit1.Text);

M:=StrToInt(Edit2.Text);

for I:=1 To N do

for J:=1 To M Do

Try

A:= StrToInt(StringGrid1.Cells[J,I]);

B:= StrToInt(StringGrid2.Cells[J,I]);

C:=A+B;

StringGrid3.Cells[J,I]:=IntToStr(C)

Except

Beep;

StringGrid3.Cells[J,I]:='?';

End;

End;

 

  1. Последовательно добавьте соответствующим объектам перечисленные ниже методы, определяющие реакцию приложения на различные события (см. п. Ошибка! Источник ссылки не найден.Ошибка! Источник ссылки не найден. инструкции по выполнению лабораторной работы № 2). По мере добавления методов регулярно выполняйте запуск программы, исправляйте допущенные ошибки. Немного поработайте с приложением, чтобы разобраться с особенностями его работы. Попробуйте, перетаскивая границы изменить размеры окна, сменить его положение, свернуть, максимизировать, развернуть до нормальных размеров, понажимать на кнопки, ввести в редактируемые элементы произвольную текстовую, числовую информацию, нажать клавиши Alt+N, Alt+M и т.д.

 

    1. Метод Button1Сlick – реакция на событие onClick, нажатие кнопки TButton1(«Выход»):

procedure TForm1.Button1Click(Sender: TObject);

begin

Close;

end;

    1. Метод FormCreate – реакция на событие onCreate, создание формы Form1 («Сложение матриц») при запуске приложения:

procedure TForm1.FormCreate(Sender: TObject);

begin

StringGrid1.Cells[0,1]:='1';

StringGrid1.Cells[1,0]:='1';

StringGrid1.Cells[1,1]:='0';

StringGrid2.Cells[0,1]:='1';

StringGrid2.Cells[1,0]:='1';

StringGrid2.Cells[1,1]:='0';

StringGrid3.Cells[0,1]:='1';

StringGrid3.Cells[1,0]:='1';

StringGrid3.Cells[1,1]:='0'

end;

    1. Метод Edit1Change – реакция на события onChange, изменение Edit1(количества строкN):

 

procedure TForm1.Edit1Change(Sender: TObject);

Var

J,N,M:Integer;

Begin

M:=StrToInt(Edit2.Text);

N:=StrToInt(Edit1.Text);

StringGrid1.RowCount:=N+1;

StringGrid2.RowCount:=N+1;

StringGrid3.RowCount:=N+1;

StringGrid1.Cells[0,N]:=Edit1.Text;

StringGrid2.Cells[0,N]:=Edit1.Text;

StringGrid3.Cells[0,N]:=Edit1.Text;

for J:=1 to M do

Begin

If StringGrid1.Cells[J,N]=''

then StringGrid1.Cells[J,N]:='0';

If StringGrid2.Cells[J,N]=''

then StringGrid2.Cells[J,N]:='0';

End;



ReCalculation

End;

    1. Метод Edit2Change – реакция на события onChange, изменение Edit2(количества столбцовM):

 

procedure TForm1.Edit2Change(Sender: TObject);

Var

I,N,M:Integer;

begin

M:= StrToInt(Edit2.Text);

N:=StrToInt(Edit1.Text);

StringGrid1.ColCount:=M+1;

StringGrid2.ColCount:=M+1;

StringGrid3.ColCount:=M+1;

StringGrid1.Cells[M,0]:=Edit2.Text;

StringGrid2.Cells[M,0]:=Edit2.Text;

StringGrid3.Cells[M,0]:=Edit2.Text;

for I:=1 to N do

Begin

If StringGrid1.Cells[M,I]=''

then StringGrid1.Cells[M,I]:='0';

If StringGrid2.Cells[M,I]=''

then StringGrid2.Cells[M,I]:='0';

End;


mylektsii.ru - Мои Лекции - 2015-2018 год. (0.01 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал