StringGrid

[Dimati87]

Доброе время суток, подскажите пожалуйста. Есть StringGrid в каждой строке вводиться по 4 значения, а в пятой ячейки должно выводиться сумма четырех этих значений, вопрос в том, как записать сумму в ячейку пятую и как сделать что бы он считал во всех вводимых строках. т.е. в каждой строке вводимой он выдавал сумму. Вот мой код:

procedure TForm1.Button1Click(Sender: TObject);
  var
    a:array[1..5] of integer;
    i,k,summ: integer;
  begin
    for i:=1 to 5 do
      if Length(StringGrid1.Cells[i-1,1]) <>0 then
        a[i]:= StrToInt(StringGrid1.Cells[i-1,0])
      else a[i] := 0;
     summ := 0;
     for i :=1 to 5 do
     summ := summ + a[i];
     Label1.Caption:=IntToStr(summ);
  end;

end.

[Dimati87]

смысл таков допустим в первой строке stringgrid есть значения 1,2,3,4 в пятую ячейку этой же строки нужно сумму вывести 1+2+3+4 = 10, во второй строке 4,3,2,1 сумма в пятой ячейки будет 4+3+2+1 = 10. и так далее строки не фиксированные.

[Dozent]

если вам в дальнейшем ненужно обрабатывать данные, то можно обойтись и без массива

procedure TForm1.Button1Click(Sender: TObject);
  var
    i,j,summ: integer;
  begin
    for i:=1 to StringGrid1.RowCount do
        begin
        sum:=0;
        For j:=1 to StringGrid1.ColCount do
          begin
          if StringGrid1.Cells[i,j] <> '' then  summ:=summ+StrToInt(StringGrid1.Cells[i,j]);
          end;
         StringGrid1.Cells[i,StringGrid1.ColCount]:=IntToStr(summ);
        end;
  end;

Токо там поиграйтесь с обращениями к ячейкам, в стринггриде там вроде наоброт идёт обрашение сначало стобец потом строка... чото такое вроде

[Dimati87]

не получается, summ всегда равно 0, и почему то не выводит он в пятую ячейку, понял что summ = 0 поставив label в него и выгружал сумму.

[Dozent]

не может бытьчт овсегда равно 0. Код пожайлуста

[Dimati87]

procedure TForm1.Button1Click(Sender: TObject);
  var
    i,j,summ: integer;
  begin
    for i:=1 to StringGrid1.RowCount do
        begin
          summ:=0;
        For j:=1 to StringGrid1.ColCount   do
          begin
          if StringGrid1.Cells[i,j] <> '' then  summ:=summ+StrToInt(StringGrid1.Cells[i,j]);
          end;
         StringGrid1.Cells[i,5]:=IntToStr(summ);
         Label1.Caption:=IntToStr(summ);
        end;
  end;

[Dozent]

вот вам рабочий код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.ColCount:=5;
StringGrid1.RowCount:=2;
StringGrid1.FixedCols:=0;
StringGrid1.FixedRows:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
  var
    i,j,summ: integer;
  begin
    for i:=0 to StringGrid1.RowCount-1 do
        begin
        summ:=0;
        For j:=0 to StringGrid1.ColCount-2 do
          begin
          if StringGrid1.Cells[j,i] <> '' then  summ:=summ+StrToInt(StringGrid1.Cells[j,i]);
          end;
         StringGrid1.Cells[StringGrid1.ColCount-1,i]:=IntToStr(summ);
        end;
end;

end.

[Serge_Bliznykov]

во-первых, лучше вместо StrToInt использовать StrToIntDef - и тогда проверку ячейки на неравенство пустой строки можно выкинуть. и позволит избежать Runtime ошибок, если в ячейку вобьют НЕ ЧИСЛО!

во-вторых, а зачем код вычисления суммы вешать на кнопку.
Для небольших гридов (а я уверен, что именно такой в данном случае и есть) вполне можно вычислять динамически, по мере внесения данных и смены фокуса...


а в целом, код Dozent выглядит вполне рабочим!

[Dozent]

StrToInt использовать StrToIntDef

ну мб, но мне вот допустим больше нравится когда идёт запрет на ввод букв, черзе кейпрес)

Ну обработка через кейпрес думаю будит сложна для автора... хотя советую попробовать будит полезно!

[Dimati87]

не подскажете как использовать StrToIntDef?

procedure TForm1.BitBtn1Click(Sender: TObject);
var
    i,j,s,summ: integer;
  begin
    for i:=0 to StringGrid1.RowCount-1 do
        begin
        summ:=0;
        s:=4;
        For j:=0 to StringGrid1.ColCount-2 do
          begin
          if StringGrid1.Cells[j,i] <> '' then  summ:=(summ+StrToIntDef(StringGrid1.Cells[j,i]));
          end;
         StringGrid1.Cells[StringGrid1.ColCount-1,i]:=StrToIntDef(summ);
        end;
end;

не хотит работать, я буду использовать в таблице еще и текст