Программирование в среде Delphi. Часть 2. Создание оконных приложений. Садовская О.Б. - 43 стр.

UptoLike

Составители: 

43
кать по ним мышкой. По умолчанию свойству Name пунктов меню
присваиваются соответственно имена N1, N2, N3.
Полный текст программы:
type TForm1 = class(TForm)
StringGrid1: TStringGrid;
Label1: TLabel;
Label2: TLabel;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private { Private declarations }
public { Public declarations }
end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.N1Click(Sender: TObject);
var i,j,s:integer;
begin
s:=0;
for i:=0 to stringgrid1.colcount-1 do
for j:=0 to stringgrid1.rowcount-1 do
s:=s + strtoint(stringgrid1.cells[i,j]);
label2.caption:=inttostr(s)
end;
procedure TForm1.N2Click(Sender: TObject);
var i,j,max:integer;
begin
max:=strtoint(stringgrid1.cells[0,0]);
for i:=0 to stringgrid1.colcount-1 do
for j:=0 to stringgrid1.rowcount-1 do
if strtoint(stringgrid1.cells[i,j])>max
then max:=strtoint(stringgrid1.cells[i,j]);
label2.Caption:=inttostr(max)
end;
procedure TForm1.N3Click(Sender: TObject);
var i,j,min:integer;
begin
min:=strtoint(stringgrid1.cells[0,0]);
for i:=0 to stringgrid1.colcount-1 do
for j:=0 to stringgrid1.rowcount-1 do
                                            43
ка т ь по н им м ыш кой. По у м олча н ию свойст ву Name пу н кт ов м ен ю
присва ива ю т ся соот вет ст вен н о им ен а N1, N2, N3.
      Полн ый т екст програ м м ы:
      type TForm1 = class(TForm)
         StringGrid1: TStringGrid;
         Label1: TLabel;
         Label2: TLabel;
         MainMenu1: TMainMenu;
         N1: TMenuItem;
         N2: TMenuItem;
         N3: TMenuItem;
         procedure N1Click(Sender: TObject);
         procedure N2Click(Sender: TObject);
         procedure N3Click(Sender: TObject);
        private { Private declarations }
        public { Public declarations }
        end;
      var Form1: TForm1;
      implementation
      {$R *.dfm}
      procedure TForm1.N1Click(Sender: TObject);
      var i,j,s:integer;
      begin
      s:=0;
      for i:=0 to stringgrid1.colcount-1 do
      for j:=0 to stringgrid1.rowcount-1 do
      s:=s + strtoint(stringgrid1.cells[i,j]);
      label2.caption:=inttostr(s)
      end;
      procedure TForm1.N2Click(Sender: TObject);
      var i,j,max:integer;
      begin
      max:=strtoint(stringgrid1.cells[0,0]);
      for i:=0 to stringgrid1.colcount-1 do
      for j:=0 to stringgrid1.rowcount-1 do
      if strtoint(stringgrid1.cells[i,j])>max
      then max:=strtoint(stringgrid1.cells[i,j]);
      label2.Caption:=inttostr(max)
      end;
      procedure TForm1.N3Click(Sender: TObject);
      var i,j,min:integer;
      begin
      min:=strtoint(stringgrid1.cells[0,0]);
      for i:=0 to stringgrid1.colcount-1 do
      for j:=0 to stringgrid1.rowcount-1 do