подсчет суммы в stringgrid

[Михаил_К]

добрый день, помогите разобраться что не так
есть stringgrid с 4 колонками (nn, usl, kol, cen), нужно произвести расчет по всем строкам
cen * kol и вывести результат в edit

var z: integer;
    i, b: byte;
begin
 assignfile (f, 'list.dat');
 reset(f);
 z:= 0;
 b:= filesize(f)-1;
 while not (eof(f)) do
 begin
  read(f, x);
  for i:= 0 to b do
  z:= x.cen * x.kol;
 end;
 edit3.Text:= inttostr(z);
 closefile(f);
end;

моя попытка считает только последнюю запись, не могу понять где косяк

[evg_m]

z:=z +x.cen * x.kol;

[Serge_Bliznykov]

Сообщение от Михаил_К

есть stringgrid с 4 колонками (nn, usl, kol, cen), нужно произвести расчет по всем строкам

а при чём здесь ФАЙЛ?!!
и где собственно StringGrid ?!!!

ну и чтение из файла неверно организовано (цикл в цикле - это ЖЕСТЬ!)

var 
  z: integer;
  x : <ВашТИП>;
begin
 assignfile (f, 'list.dat');
 reset(f);
 z:= 0;
 while not (eof(f)) do
 begin
   read(f, x);
   z:= z + x.cen * x.kol;
 end;
 edit3.Text:= inttostr(z);
 closefile(f);
end;

[Михаил_К]

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

а при чём здесь ФАЙЛ?!!
и где собственно StringGrid ?!!!

в файле хранятся данные, а stinggrid служит для их отображения

спасибо за помощь !!

[Serge_Bliznykov]

Сообщение от Михаил_К

в файле хранятся данные, а stinggrid служит для их отображения

Вы же где-то читаете данные из файла в StringGrid ? Вам не кажется логичным, там же и подсчитать нужную сумму "итого" ? Или реально нужен ещё один дополнительный цикл по файлу ? А зачем?

и, если данные уже в StringGrid, почему бы их оттуда и не взять?

Ну и наконец, если данные в гриде могут редактироваться пользователем, то, логично было сразу пересчитывать "Итого" после изменений. Так?

Сообщение от Михаил_К

спасибо за помощь !!

это всегда пожалуйста!

[Михаил_К]

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

Вы же где-то читаете данные из файла в StringGrid ? Вам не кажется логичным, там же и подсчитать нужную сумму "итого" ? Или реально нужен ещё один дополнительный цикл по файлу ? А зачем?

и, если данные уже в StringGrid, почему бы их оттуда и не взять?

Ну и наконец, если данные в гриде могут редактироваться пользователем, то, логично было сразу пересчитывать "Итого" после изменений. Так?

дополнительную процедуру сделал только для этапа разработки, в дальнейшем все будет объединено в одну процедуру

данные не могут редактироваться, грид служит только для визуализации а сам файл, временный, после все операций он очищается
а вот на счет подсчетов после изменения до этого не додумался, хорошая идея ))

[Аватар]

данные не могут редактироваться

а вот на счет подсчетов после изменения до этого не додумался, хорошая идея

Хорошая, бесспорно, но только тогда, когда данные редактируются, но сам же написал, что они не могут редактироваться. Как быть ? ))

[Михаил_К]

Сообщение от Аватар

Хорошая, бесспорно, но только тогда, когда данные редактируются, но сам же написал, что они не могут редактироваться. Как быть ? ))

еще не придумал ))

[Михаил_К]

можете досказать еще один момент, итогом всего является занесение всех данных в базу
это добавление всего остального:

begin
 with datamodule4.Table1 do
 begin
  append;
  edit;
  fieldbyname('Nom_nar').AsInteger:= strtoint(label2.Caption);
  fieldbyname('Dat_nar').AsDateTime:= strtodate(label3.Caption);
  fieldbyname('Paci').AsString:= edit1.text;
  fieldbyname('Adres').AsString:= edit2.text;
  fieldbyname('Date_birth').AsDateTime:= datetimepicker1.Date;
  fieldbyname('Vrach').AsString:= dblookupcombobox3.Text;
  fieldbyname('UET_varch').AsInteger:= dbtext3.Field.AsInteger;
  fieldbyname('Tehnik').AsString:= dblookupcombobox4.Text;
  fieldbyname('UET_teh').AsInteger:= dbtext4.Field.AsInteger;
  fieldbyname('ED').AsString:= dbtext5.Field.AsString;
 end;
end;

и ни как не могу сообразить как сюда впихнуть весь перечень из stringgrid

[Serge_Bliznykov]

в качестве идеи:

for i:=SG1.FixedRow+1 to SG.CountRow-1 do 
begin
 with datamodule4.Table1 do
 begin
  append;
  fieldbyname('Nom_nar').AsInteger:= strtoint(SG1.Cells[1,i]);
  fieldbyname('Dat_nar').AsDateTime:= strtodate(SG1.Cells[2,i]);
  fieldbyname('Paci').AsString:= SG1.Cells[3,i];
  fieldbyname('Adres').AsString:= SG1.Cells[4,i];
....
  Post;
 end;
end;