Summenwert ausgewählter Zellen in Stringgrid

Question

Wie kann ich den Summenwert der ausgewählten Zellen oder einen Bereich in stringgrid erhalten? Bitte beachten Sie, dass diese Zellen manchmal String-Werte enthalten!

Ich versuche GridCoord, aber es funktioniert nicht gut, weil manchmal "versteckte Spalten" sind.

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

Wie Summe der Gleitkommawerte einer Auswahl in TStringGrid zu bekommen?

Für Standard-Delphi TStringGrid zum Beispiel auf diese Weise:

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; 

Wie Summe des Fließkommawertes eine Auswahl (einschließlich unsichtbaren Zellen) in TAdvStringGrid zu bekommen?

Daher verwenden Sie wahrscheinlich TAdvStringGrid Sie können den folgenden noch nicht getesteten oder optimierten Code versuchen. So weit ich fand, können Sie AllFloats Eigenschaft verwenden, um auf alle Rasterzellen als Float unabhängig von versteckten Spalten oder Zeilen zuzugreifen. Angenommen, Sie kontinuierliche Auswahl summieren möchten, nachdem Sie eine bestimmte Spalte auszublenden, können Sie diesen Code versuchen:

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;