сумма каждой строки в stringgrid

[toha_master]

Есть таблица заполнена числами (размеры таблицы изменяются программно) нужно найти сумму каждой строки таблицы. есть некоторые наработки но не рабочая((( Помогите...

[toha_master]

procedure TForm3.ComboBox1Click(Sender: TObject);
var sum,s1:real;
begin
if combobox1.ItemIndex=0 then begin
for i:=0 to x do
 for j:=0 to y  do
 Sum := Sum + StrTofloat(stringgrid1.Cells[i,j]);
 label8.Caption:=floattostr(Sum);

 if combobox1.ItemIndex=1 then begin
 for i:=0 to y do
 s1:=s1+strtofloat(stringgrid1.Cells[0,y]);
 label8.Caption:=floattostr(s1);
 end;
end;
end;

[toha_master]

там где индекс о то сумма всех элементов таблицы (x-колличество строчек, у-колличество столбцов)

[phomm]

begin-end расставьте правильно. судя по всему у Вас в них запутана логика.
Вроде как после

 label8.Caption:=floattostr(Sum);

надо поставить end; а снизу один убрать.

[Sciv]

Рискну предложить свой вариант:

Case combobox1.ItemIndex of
  0: begin 
        for i:=0 to x do
          for j:=0 to y  do
            Sum := Sum + StrTofloat(stringgrid1.Cells[i,j]);
        label8.Caption:=floattostr(Sum);
     end;
  1: begin  
        for i:=0 to y do
          s1:=s1+strtofloat(stringgrid1.Cells[0,y]);
        label8.Caption:=floattostr(s1);
     end;
end;

[toha_master]

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

Рискну предложить свой вариант:

Case combobox1.ItemIndex of
  0: begin 
        for i:=0 to x do
          for j:=0 to y  do
            Sum := Sum + StrTofloat(stringgrid1.Cells[i,j]);
        label8.Caption:=floattostr(Sum);
     end;
  1: begin  
        for i:=0 to y do
          s1:=s1+strtofloat(stringgrid1.Cells[0,y]);
        label8.Caption:=floattostr(s1);
     end;
end;

Все бы хорошо только ошибку выдает

[toha_master]

Project1.exe raised exception class EConvertError with message ''' is not a valid floating point value'. Process stopped. Use Step or Run ro continue. (Что это обозначает?)

[eval]

http://translate.google.com/#en/ru/P...0ro%20continue

[DIMASIKXXX32]

var
  Form1: TForm1;
  i,j:Integer;
implementation

{$R *.dfm}


//При создании формы таблица заполняется рандомно 
procedure TForm1.FormCreate(Sender: TObject);


begin
for i := 1 to 5 do
  for j := 1 to 5 do
    begin
      StringGrid1.Cells[i,j]:=IntToStr(Random(10));
    end;

end;

procedure TForm1.Button1Click(Sender: TObject);
  var
    sum:Integer;
  begin
    sum:=0;
    //Подсчет по 2 столбцу
    for j := 1 to StringGrid1.RowCount-1 do
      begin
        sum:= sum+StrToint(StringGrid1.Cells[1,j]);
      end;
    ShowMessage(IntToStr(sum));
  end;
end.

Примечние если подшаманить то можно и строки и что бы всех строк




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[DIMASIKXXX32]

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

Есть таблица заполнена числами (размеры таблицы изменяются программно) нужно найти сумму каждой строки таблицы. есть некоторые наработки но не рабочая((( Помогите...

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.Grids;
Если используешь delphi 7 здесь сгенерируются подругому так что не все копи-пасти
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;
  i,j:Integer;
implementation

{$R *.dfm}
//Событие на создание формы
procedure TForm1.FormCreate(Sender: TObject);
  begin
    for i := 1 to 5 do
      for j := 1 to 5 do
        begin
          StringGrid1.Cells[i,j]:=IntToStr(Random(10));//Заполняем ячееки
        end;
  end;
//Собыие по кнопке подсчета суммы строк
procedure TForm1.Button1Click(Sender: TObject);
  var
    sum:Integer;
  begin
    sum:=0; //Обнуляем сумму
    //Подсчет суммы
    for j := 1 to StringGrid1.RowCount-1 do
      begin
        //Цикл по столбцам начинаем с первого и до последнего столбца последний
        //Определяется автоматически плюс вычитаем 2 так как в последний будем
        //Вывоить сумму
        for i := 1 to StringGrid1.ColCount-2 do
          begin
            //Подсчет суммы
            sum:= sum+StrToint(StringGrid1.Cells[i,j]);
            //Выводим сумму в последний столбец
            StringGrid1.Cells[StringGrid1.ColCount-1,j]:=IntToStr(sum);
          end;
        sum:=0;//Обнуляем сумму перед переходм к новой срочке в цикле
      end;
  end;
end.

Примечание: размер StringGrida ColCount=7 RowCount=5





___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.