RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 08.05.2020, 01:49 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, iphone5s150! Код (Pascal) :: выделить код unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Grids;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
StringGridfirst: TStringGrid;
GroupBox2: TGroupBox;
StringGridModif: TStringGrid;
Label_Col: TLabel;
Label_Row: TLabel;
LabelNumCol: TLabel;
Label2: TLabel;
Edit_Col: TEdit;
Edit_Row: TEdit;
ButtonFirst: TButton;
ButtonModif: TButton;
EditNumKol: TEdit;
ButtonSum: TButton;
TPanel: TPanel;
procedure ButtonFirstClick(Sender: TObject);
procedure StringGridModifKeyPress(Sender: TObject; var Key: Char);//?
procedure ButtonModifClick(Sender: TObject);
procedure ButtonSumClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//это у Вас уже было - контроль ввденного числа.
procedure TForm1.ButtonFirstClick(Sender: TObject);
var
i,j:integer;
begin
//
if Edit_Col.Text = ' ' then
begin
ShowMessage('Введите количество столбцов.');
Edit_Col.SetFocus;
Exit;
end;
//это у Вас уже было - контроль ввденного числа.
if Edit_Row.Text= ' ' then
begin
ShowMessage ('Введите количество строк.');
Edit_Row.SetFocus;
Exit;
end;
//
begin
StringGridFirst.ColCount:=StrToInt(Edit_Col.Text);
StringGridFirst.RowCount:=StrToInt(Edit_Row.Text);
Randomize;
for i:=0 to StringGridFirst.ColCount -1 do
for j:=0 to StringGridFirst.RowCount-1 do
StringGridFirst.Cells[i,j]:=IntToStr(100-Random(200));
ButtonFirst.Visible:=False;
end;
end;
//это у Вас уже было - копирование Грида.
procedure TForm1.ButtonModifClick(Sender: TObject);
var
i,j: integer;
begin
//копируем размер
StringGridModif.ColCount:=StringGridFirst.ColCount;
StringGridModif.RowCount:=StringGridFirst.RowCount;
//копируем значения, по заданию
for i:=0 to StringGridFirst.ColCount -1 do
for j:= StringGridFirst.RowCount -1 downto 0 do
if i>=J then StringGridModif.Cells[i,j]:= StringGridFirst.Cells[i,j]
else StringGridModif.Cells[i,j]:='0'
end;
//это то, что Вы должны были добавить обработчик кнопки "Расчет"
procedure TForm1.ButtonSumClick(Sender: TObject);
var
i,j,s:integer;
begin
//уже было, только названия другие
if EditNumKol.Text = ' ' then
begin
ShowMessage('Введите количество столбцов.');
EditNumKol.SetFocus;
Exit;
end;
//выводим результат
s:=0;
j:=StrToInt(EditNumKol.Text);
for i:=0 to StringGridModif.RowCount-1 do
if odd(StrToInt(StringGridModif.Cells[j,i]))then
s:=s+StrToInt(StringGridModif.Cells[j,i]);
Form1.Label2.Caption:='Сумма:= ' +IntToStr(s);
end;
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
