Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

16th
Ноя

Посчитать сумму по столбцам и строкам в StringGrid

Posted by micher under Delphi

Цель работы — создать программу, рассчитывающую суммы по столбцам и строкам вводимых чисел.

Serge_Bliznykov

набросал простейший пример на основе кода автора топика

unit Unit2;
interface
uses

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

  Dialogs, Grids;
type

  TForm1 = class(TForm)

    StringGrid1: TStringGrid;

    procedure StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;

      const Value: string);

    procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;

      var CanSelect: Boolean);

    procedure FormCreate(Sender: TObject);

    function ColSum(n:integer): integer; //сумма по колонке

    function RowSum(n: integer): integer;  //сумма по столбцу

    procedure Calculate;

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  Form1: TForm1;
implementation
const Num = 4;

cSize = 30;
{$R *.dfm}
procedure TForm1.Calculate;

var i:integer;

begin

for i:=1 to Num-1 do

 begin

   StringGrid1.Cells[i, 0]:=IntToStr(ColSum(i));

   StringGrid1.Cells[0, i]:=IntToStr(RowSum(i));

  end;

end;
function TForm1.ColSum(n: integer): integer;

var

i: integer;

begin

Result:=0;

for i:=1 to Num-1

    do Result:=Result+StrToIntDef(StringGrid1.Cells[n, i],0);

end;
procedure TForm1.FormCreate(Sender: TObject);

begin

StringGrid1.DefaultColWidth:= cSize;

StringGrid1.DefaultRowHeight:= cSize;

StringGrid1.ColCount:= Num;

StringGrid1.RowCount:= Num;

StringGrid1.Width:= Num*(cSize+1)+3;

StringGrid1.Height:= Num*(cSize+1)+3;

StringGrid1.Font.Size:=cSize div 2;

end;
function TForm1.RowSum(n: integer): integer;

var

i: integer;

begin

Result:=0;

  for i:= 1 to Num-1

     do Result:=Result+StrToIntDef(StringGrid1.Cells[i, n],0);

end;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;

  var CanSelect: Boolean);

begin

  Caption:= 'Выделенная ячейка (' + IntToStr(Acol) + ':' + IntToStr(Arow) + ') ';

end;
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;

  const Value: string);

begin

  Calculate

end;
end.