Суммирование столбцов StringGird

[Dikey804]

Ребят нужна помощь. Программа называется кредитный калькулятор все расчеты выводит в StringGird(6 столбцов и i-тое количество строк.)
Нужно что бы в самом конце таблицы SG закреплялась строка "ИТОГО" и выводилась сумма столбца
(код скину весь сразу)

Var
  FCalc: TFCalc;
  procedure Annuite(summa, stavka, mesplatej: real; month: integer);
   procedure Dif(summa, stavka, mesplatej: real; month: integer);
implementation
uses Unit1;
{$R *.dfm}
//Расчет аннуитетного платежа и вывод в SG
procedure Annuite(summa, stavka, mesplatej: real; month: integer);
var
 i: integer;
 ostn, ostk, vplpr, pgdolg: real;
begin
  FCalc.SG.RowCount := month + 1; 
  for i := 1 to month do begin
    if i = 1 then ostn := summa else ostn := ostk; 
    vplpr := ostn * stavka / 12;
    pgdolg := mesplatej - vplpr;
    ostk := ostn - pgdolg;
    FCalc.SG.Cells[0,i]:= inttostr(i);
    FCalc.SG.Cells[1,i]:= floattostrf(vplpr,ffFixed,6,2);
    FCalc.SG.Cells[2,i]:= floattostrf(pgdolg,ffFixed,6,2);
    FCalc.SG.Cells[3,i]:= floattostrf(mesplatej,ffFixed,6,2);
    FCalc.SG.Cells[4,i]:= floattostrf(ostn,ffFixed,8,2);
    FCalc.SG.Cells[5,i]:= floattostrf(ostk,ffFixed,8,2);
  end;
end;

procedure TFCalc.BRaschClick(Sender: TObject);
   function PMT(IR, NP, PV: real): real;
   begin
   result := (PV * IR) / (1 - power(1 + IR, -NP));
  end;
 var
  sum, stavka: extended;
  month: integer;
  Ejrasch: extended;
 begin
if (EMonth.Text='') or (EStavka.Text='') or  (Esum.Text='') then ShowMessage ('Íåîáõîäèìî çàïîëíèòü âñå ïîëÿ')
else
begin  SG.visible:=True ;
  sum := StrToFloat(ESum.Text);
  stavka := StrToFloat(EStavka.Text) * 0.01;
  month := StrToInt(Emonth.Text);
    if RBAn.Checked=true then begin  
    Ejrasch := Pmt(stavka / 12, month, sum);
    Annuite(sum, stavka, Ejrasch, month);
  end
  else begin    
  Ejrasch := Pmt(stavka / 12, month, sum);
    Dif(sum, stavka, Ejrasch, month);
  end;
  end;
end;

[Stilet]

Чет не понял в чем проблема...

[phomm]

Ну добавить вывод строки "итого" в нужную ячейку и добавить в процедуру аннуит цикл считающий по столбцам.
Цикл примерно так:

//создать и обнулить массив total[1..5] of double;
for i := 1 to month do
for j := 1 to 5 do
total[j] := total[j] + strtofloat(sg.cells[j,i], параметры );
//вывести массив total в нужные строки

Без всего проекта сложно сказать как именно - у Вас там наверное привязка по нумерации строк или ещё какая штука, что может препятствовать решению в общем виде.

[Dikey804]

Я правильно переменную присвоил?
total: array[1..5] of double ;
и почему то выводит ошибку на SG

total[j]:= total[j] + strtofloat(sg.cells[j,i], параметры );

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

//создать и обнулить массив total[1..5] of double;
for i := 1 to month do
for j := 1 to 5 do
total[j] := total[j] + strtofloat(sg.cells[j,i], параметры );
//вывести массив total в нужные строки

Мне этот код нужно подставить в процедуру или под TFCalc.BRaschClick?

[phomm]

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

добавить в процедуру аннуит цикл считающий по столбцам

Можно и туда добавить и туда, но лучше в процедуру аннуит - там она более к месту, а SG дополнить надо именем формы - как и другие Ваши обращения к гриду в этой процедуре.
Переменная объявлена правильно.

[Dikey804]

спасибо сейчас попробую

[Serge_Bliznykov]

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

Можно и туда добавить и туда, но лучше в процедуру аннуит - там она более к месту, а SG дополнить надо именем формы - как и другие Ваши обращения к гриду в этой процедуре.

Можно и так, но, обычно, если в процедуре/функции нужно обрабатывать контролы формы, то, желательно или передавать их в эту процедуру/функцию в качестве параметров, либо (это наиболее простой и ожидаемый способ) сделать данную процедуру/функцию методом формы (надо написать её там же, где описаны другие методы формы TFCalc, например, сразу после BRaschClick:

примерно вот так (я выделил изменения):

type
  TFCalc = class(TForm)
    .....
    BRasch: TButton;
    SG: TStringGrid;
    procedure BRaschClick(Sender: TObject);
    procedure Annuite(summa, stavka, mesplatej: real; month: integer);

......
  private
......


implementation
uses Unit1;
{$R *.dfm}
//Расчет аннуитетного платежа и вывод в SG
procedure TFCalc.Annuite(summa, stavka, mesplatej: real; month: integer);
var .....

Какой способ выбрать - зависит от разных деталей (и, в первую очередь, предназначения данной процедуры/функции, где и для чего её планируется использовать).

[Dikey804]

Прописал вот так

procedure Annuite(summa, stavka, mesplatej: real; month: integer);
var
 i,j: integer;
 ostn, ostk, vplpr, pgdolg: real;
 total: array[0..5] of double ;
begin
  FCalc.SG.RowCount := month + 1;     for i := 1 to month do
  for j := 1 to 5 do
  total[j]:= total[j] + strtofloat(FCalc.SG.Cells[j,i]);
   begin
    if i = 1 then ostn := summa else ostn := ostk; 
    vplpr := ostn * stavka / 12;
    pgdolg := mesplatej - vplpr;
    ostk := ostn - pgdolg;


    FCalc.SG.Cells[0,i]:= inttostr(i); // <--- (2) - âûâîäèòü òåêóùèé ìåñÿö, à íå ñêîëüêî âñåãî ìåñÿöåâ
    FCalc.SG.Cells[1,i]:= floattostrf(vplpr,ffFixed,6,2);
    FCalc.SG.Cells[2,i]:= floattostrf(pgdolg,ffFixed,6,2);
    FCalc.SG.Cells[3,i]:= floattostrf(mesplatej,ffFixed,6,2);
    FCalc.SG.Cells[4,i]:= floattostrf(ostn,ffFixed,8,2);
    FCalc.SG.Cells[5,i]:= floattostrf(ostk,ffFixed,8,2);
  end;

при нажатии на кнопку расчет он ошибку кидает is not a valid floating point value
Кстати

total[j]:= total[j] + strtofloat(FCalc.SG.Cells[j,i]);

пытался и после begin прописывать

[Serge_Bliznykov]

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

при нажатии на кнопку расчет он ошибку кидает is not a valid floating point value

в какой-то из ячеек у Вас НЕ число (скорее всего, натыкаетесь на пустую ячейку).

[Dikey804]

Полностью сама программа