Форум: "Начинающим";
Текущий архив: 2008.08.24;
Скачать: [xml.tar.bz2];
ВнизStringGrid Найти похожие ветки
← →
Оксана Вл. (2008-07-22 11:36) [0]Скажите как в StringGrid подсчитать суму столбца
← →
Palladin © (2008-07-22 11:38) [1]а что именно не получается?
← →
Оксана Вл. (2008-07-22 11:39) [2]пробую так
s:=0;
for i:=1 to 15 do
if (StringGrid1.Cells[4,i] = "") then
StringGrid1.Cells[4,i] := "0";
s:=s+strtofloat(StringGrid1.Cells[4,i]);
panel1.Caption:=floattostr(s);
так он матюхается на пустой символ...
← →
MsGuns © (2008-07-22 11:42) [3]function TForm1.CalcSumByColumn(SGrid: TStringGrid; ACol: integer): integer
var
i: integer;
begin
result := 0;
with SGrid do
for i := 0+FixedRows to RowCount-1 do
result := result+StrToIntDef(Cells[ACol,i],0);
end;
← →
Игорь Шевченко © (2008-07-22 11:47) [4]Учимся оформлять вопросы
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.08.24;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.051 c