選択したセルの合計値を文字列グリッド

Question

どのようにして、選択したセルの合計値または範囲をstringgridにすることができますか？これらのセルには文字列値が含まれることがあります。

私はGridCoordを試していますが、時には「隠し列」があるためにうまくいきません。 TStringGridでの選択範囲の浮動小数点値の合計を取得する方法

procedure TMainShowForm.StgSelectionChanged(Sender: TObject; ALeft, ATop, 
ARight, ABottom: Integer); 
var 
i: Integer; 
gc: TGridCoord; 
sum:double; 
begin 
    for i := 1 to stg.SelectedCellsCount do 
    begin 
     gc := stg.SelectedCell[i - 1]; 
     sum:=sum+stg.floats[(gc.X),(gc.Y)]; 
    end; 
    AdvOfficeStatusBar1.Panels[0].Text:='Sum = '+ formatfloat('#,##0.',sum); 
    AdvOfficeStatusBar1.Panels[1].Text:='Count = '+ inttostr(stg.SelectedCellsCount); 
end; 

Answer 1

？例えば、標準のDelphi TStringGridについては

このよう：TAdvStringGridで（目に見えない細胞を含む）選択範囲の浮動小数点値の合計を取得する方法

procedure TForm1.Button1Click(Sender: TObject); 
var 
    Sum: Double; 
    Val: Double; 
    Col: Integer; 
    Row: Integer; 
begin 
    Sum := 0; 
    for Col := StringGrid1.Selection.Left to StringGrid1.Selection.Right do 
    for Row := StringGrid1.Selection.Top to StringGrid1.Selection.Bottom do 
     if TryStrToFloat(StringGrid1.Cells[Col, Row], Val) then 
     Sum := Sum + Val; 
    ShowMessage('Sum of the selection is ' + FloatToStr(Sum) + '.'); 
end; 

？

したがって、おそらくTAdvStringGridを使用していますが、未テストまたは最適化されていないコードを試すことができます。今まで私が見つけたのは、AllFloatsプロパティを使用して、非表示の列や行に関係なく、すべてのグリッドセルに浮動小数点としてアクセスすることができます。

procedure TForm1.Button1Click(Sender: TObject); 
var 
    Sum: Double; 
    Col: Integer; 
    Row: Integer; 
begin 
    Sum := 0; 
    for Col := AdvStringGrid1.Selection.Left to AdvStringGrid1.Selection.Right do 
    for Row := AdvStringGrid1.Selection.Top to AdvStringGrid1.Selection.Bottom do 
     Sum := Sum + AdvStringGrid1.AllFloats[Col, Row]; 
    ShowMessage('Sum of the selection is ' + FloatToStr(Sum) + '.'); 
end;