едення - перемикача
sedtRazmA.Value: = MassB.N;// Встановили значення, виводиться на екран
sedtRazmB.MinValue: = 1;// Встановили мінімальну знаеченіе для введення-перемикача
sedtRazmB.MaxValue: = MaxM;// Встановили максимальне значення для введення - перемикача
sedtRazmB.Value: = MassB.M;// Встановили значення, виводиться на екран
lbPrompt2.Caption: = 'Розмірність M';
btnNext.Caption: = 'Далі';
btnCancel.Caption: = 'Відміна';
If ShowModal = Mrok Then// якщо користувач натиснув "Далі"
Begin
MassB.N: = sedtRazmA.Value;// Зберігаємо розмірність масиву
MassB.M: = sedtRazmB.Value;// Зберігаємо розмірність масиву
VS_InputMass (MassB);// Виводь вікно з сіткою для введення масиву
end {If ShowModal = Mrok Then}
end; {With InRazmForm do}
end;
procedure TMainForm.VS_ShowMass (inCaption: String; inMass: TVS_MassData);
// Виводимо масив
// N, M - розмірність матриці, де
// N - стоблец
// M - рядок
// inMass - масив, який виводимо
Var
I, K: Integer;
begin
If InMassForm = Nil Then Application.CreateForm (TInMassForm, InMassForm);
with InMassForm do
Begin
Caption: = 'Висновок масиву';
strGrid.RowCount: = InMass.M +1;
strGrid.ColCount: = inMAss.N +1;
For I: = 0 To inMAss.N -1 do// Виводимо шапку для стовпців
strGrid.Cells [I + 1, 0]: = 'N =' + IntToStr (I + 1);
For I: = 0 To inMAss.M -1 do// Виводимо шапку для рядків
strGrid.Cells [0, I + 1]: = 'M =' + IntToStr (I + 1);
btnNext.Caption: = 'Ok';
btnCancel.Visible : = False;// Вимикаємо кнопку "Скасувати". Вона нам не потрібна
For I: = 0 To inMAss.N -1 do// пробігати по рядках
For K: = 0 To inMAss.M -1 do// пробігати по стовпцях
InMassForm.strGrid.Cells [I +1, K +1]: = FloatToStr (inMass.Mass [K, I]);// Виводимо у сітку раніше збережений масив
ShowModal;// Виводимо вікно, чекаємо реакції користувача
btnCancel.Visible: = True;// Не забуваємо включити кнопку "Скасувати", інакше її не побачать в інших потрібних нам Метс
end; {with InMassForm do}
End;
procedure TMainForm.FormShow (Sender: TObject);
// обробляємо прри виклику форми
Var I, J: Integer;
begin
// Обнуляємо масиви, щоб уникнути шаманських дій програми
SetLength (MassA.Mass, MaxM, MaxN);// Встановили розмір масиву в пам'яті
SetLength (MassB.Mass, MaxM, MaxN);// Встановили розмір масиву в пам'яті
SetLength (MassC.Mass, MaxM, MaxN);// Встановили розмір масиву в пам'яті
For I: = 0 to MaxM - 1 Do// пробігати по рядках
For J: = 0 to MaxN - 1 do// пробігати по стовпцях
Begin
MassA.Mass [I, J]: = 0;
MassB.Mass ...
