Da hat Heiko vollkommen recht, aber falls nicht versuch es mal hiermit (heruntergetippt und nicht getestet):
Delphi-Quellcode:
function GridRowSum(
const TheGrid: TStringGrid; RowIndex: integer; IgnoreFixedCols: Boolean = true): double;
var i, Start: integer;
begin
Result := 0;
if (RowIndex < 0)
or (RowIndex >= TheGrid.RowCount)
then
raise Exception.CreateFmt('
Zeilenindex %d ist nicht erreichbar',[RowIndex]);
if IgnoreFixedCols
then
Start := TheGrid.FixedCols
else
Start := 0;
for i := Start
to TheGrid.ColCount - 1
do
Result := Result + StrToFloatDef(TheGrid.Cells[i,RowIndex],0);
end;
[edit] Abfrage auf RowIndex < 0 eingebaut, falls später mal jemand auf diesen Thread stößt
[/edit]