StringGrid - рассчитывать суммы по столбцам и строкам вводимых чисел

[apelsun]

Подскажите, в чем ошибка. Вроде я определила переменную Grid.

Использован компонент: StringGrid

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

const Num = 4;
cSize = 30;

{$R *.dfm}

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,  ARow: Integer; var CanSelect: Boolean);
var Select: Boolean;
begin
Caption := 'Выделена клетка (' + IntToStr(Acol) + ':' + IntToStr(Arow) + ') ';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
MyGrid.DefaultColWidth := cSize;
MyGrid.DefaultRowHeight := cSize;
MyGrid.ColCount := Num;
MyGrid.RowCount := Num;
MyGrid.Width := Num * (cSize + 1) + 3;
MyGrid.Height := Num * (cSize + 1) + 3;
MyGrid.Font.Size := cSize div 2;
end;
   end.

[Stilet]

Что компилятор говорит?

[Аватар]

Наверно говорит, что MyGrid не известно что

[Stilet]

Если да то заменить его на StringGrid1

[apelsun]

Заменила на StringGrid1 и ошибка исчезла, спасибо.
Программу написала, запускается, но не получается вызвать результат.

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;

const Num = 4;
cSize = 30;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);  //Отоброжает выделенную строку в заголовке
begin
Caption:= 'Выделенная ячейка (' + IntToStr(Acol) + ':' + IntToStr(Arow) + ') ';
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 ColSum(n:integer): integer; //сумма по колонке
var
i: integer;
begin
Result:=0;
for i:=1 to Num-1 do Result:=Result+StrToInt(Form1.StringGrid1.Cells[n, i]);
end;

function RowSum(n: integer): integer;  //сумма по столбцу
var
i: integer;
begin
Result:=0;
for i:= 1 to Num-1 do Result:=Result+StrToInt(Form1.StringGrid1.Cells[i, n]);
end;

procedure Calculate;  
var i:integer;
begin
for i:=1 to Num-1 do
begin
Form1.StringGrid1.Cells[i, 0]:=IntToStr(ColSum(i));
Form1.StringGrid1.Cells[0, i]:=IntToStr(RowSum(i));
end;
end;

function StrToVal(s:string):integer;  //вывод ошибки, если введена буква
begin
if s='' then Result:=0 else
try
Result:= StrToInt(s);
except
Result:=0;
Form1.Caption:= 'вводить надо числа';
end;
end;

end.

[phomm]

Сообщение от apelsun

При запуске, я ввожу числа, но далее ничего не происходит.

А ничего и не будет происходить, Вам надо _вызывать_ ваши процедуры/функции и как-то отображать их результат.
Например, кнопочку, в обработчике клика которой вызвать Calculate.

[Serge_Bliznykov]

согласен с phomm.

если грид заполняете программно, то метод нужно вызывать в момент заполнения грида.

А если пользователю разрешено редактирвоать данные в гриде, то можно повесить вызов расчёта на какое-нибуд событие. Например, на событие присвоения текста ячейки: OnSetEditText
в принципе, туда сразу передаются значения столбца и строки, в которых произошло изменение, можно (для оптимизации быстродействия) пересчитывать итоги только по той строке и по тому столбцу, куда входит изменяемая ячейка. Остальные столбцы и строки не трогать!


p.s. кстати, если очень надо, могу набросать примерчик

[Mad_Cat]

try
Result:= StrToInt(s);
except
Result:=0;
Form1.Caption:= 'вводить надо числа';
end;

не проще

//var K:integer;
if not TryStrToInt(s,k) then Form1.Caption:= 'вводить надо числа';
Result:=k;

хотя вы все равно функцию StrToVal нигде не используете

[Serge_Bliznykov]

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

Исходник: StringGridSumItogo.rar

EXEшник (для примера): Project3_EXE.rar

ну и код:

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.

[apelsun]

А можно сделать так, что бы результат выводился, при нажатии на самый левый заблокированный (пустой) квадрат, На фотографии я точнее отметила. Или расчет можно реализовать, если только нажимать на всю форму сразу?