VPF::Сложение данных в колонке StrinGrid'а

RN3QGA

Дата 3.1.2006, 04:01 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 28.11.2005
Где: Воронежская обл.

Репутация: нет
Всего: нет

Доброго времени суток!
Уважаемые, помогите!
Необходимо сложить данные занесенные в колонку StringGrida (цифры).
Сам думаю, что необходим цикл, но чего то самому не получается,
еще загвоздка количество строк постоянно меняется.
Спасибо.

Denic

Дата 3.1.2006, 05:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 41
Регистрация: 7.10.2005

Репутация: нет
Всего: нет

В чем проблема создаёшь массив заносишь цифры и с помомощью цикла с парамметром складываешь, есть свойство Cells - соответствующий таблицы двумерный массив, а также свойства: col и row - количество строк и столбцов таблицы. Делаешь примерно следующие

Код


 var
 i:integer;
 sum:real; // сумма
 mas:array[1..100] of real  // берется таблица где 100 строк и заполняются только
                               // нужные строки

          BEGIN
     for i:=1 to 100 do begin
     if length(StringGrid1.cells[i-1,0])<>0 then
         mas[i]:=strToInt(StringGrid1.Cells[i-1,0])
           else mas[i]:=0;
             end;
sum:=0;
      
    for i:=1 to 100 do  
         sum:=sum+mas[i];
end;

Вот и все

Akella

Дата 3.1.2006, 09:30 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Думаю, что в собтии на удаление или добавление колонок и строк (ячеек) нужно "повесить" фенкцию корекции формул, Как в Excel.

RN3QGA

Дата 3.1.2006, 14:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 28.11.2005
Где: Воронежская обл.

Репутация: нет
Всего: нет

А нельзя ли полностью рабочий пример пожалуйста, разберусь быстрее!
Спасибо! smile

Guedda

Дата 3.1.2006, 14:36 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Код


unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  Sum : LongInt;
begin
  Sum := 0;  //сумма цифр
  for i := 1 to StringGrid1.RowCount - 1 do  //вот цикл
    Sum := Sum + StrToInt(StringGrid1.Cells[0, i]); //считаем сумму всех цифр в 1 колонке
  ShowMessage(IntToStr(Sum)); //показываем cумму в диалоге.
end;

end.

А вообще все понятно и раньше было написано.

--------------------

Ll 2

RN3QGA

Дата 3.1.2006, 15:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 28.11.2005
Где: Воронежская обл.

Репутация: нет
Всего: нет

Да Guedda все верно - уже со всем разобрался, просто дело было как говориться не в зимних санках ...
Спасибо огромное. smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »