Stringgrid Spalten einzeln summiere

[akazukilp]

Tag alllerseits,

gibt es eine funktion die mir die Spalten Einzeln summiert.

Besten dank im voraus,
Basti

[bcvs]

Ein StringGrid ist kein Excel. Das musst du schon selber programmieren.

[himitsu]

Oder eine "gute" Grid-Komponente kaufen, wo man Header/Footer/sonstwas einbinden und denen dann sagen "zeige Summe".

Das hauseigene VCL-Grid im Delphi ist halt extrem "dumm" (es kann nichts und du mußt halt selber machen) und auch bissl "hässlich".

[akazukilp]

Also ich hab mal ein bissel rumprobiert aber irgendwie kom ich mit f5 f8 und f7 nicht weiter. da er gar nicht in den code reingeht. was mach ich falsch?

Code:

var
i, ilZeile : integer;
Summe : double;
begin
 Summe := 0;
 ilZeile := Stringgrid1.RowCount;
 for i:= StringGrid1.Selection.Top to StringGrid1.Selection.Bottom do
 begin
  Summe := Summe+ StrtoFloatdef(Stringgrid1.Cells[1,i],0);
 end;
  Form1.StringGrid1.RowCount := Form1.StringGrid1.RowCount + 1;
  Stringgrid1.Cells[1, ilZeile] := FloattoStr(Summe);

[Andreas13]

Zitat von akazukilp:

Also ich hab mal ein bissel rumprobiert aber irgendwie kom ich mit f5 f8 und f7 nicht weiter. da er gar nicht in den code reingeht. was mach ich falsch?

Vermutlich hast Du das Programm ohne Debug-Informationen compiliert.
Gruß, Andreas

[hoika]

Hallo,

var
i, ilZeile : integer;


Das ist zu wenig Code.
Wann wird diese ominöse Methode aufgerufen?

[akazukilp]

Zitat von hoika:

Hallo,

var
i, ilZeile : integer;


Das ist zu wenig Code.
Wann wird diese ominöse Methode aufgerufen?

Hi,
Sie wird jeztz noch durch eine Button1click procedur ausgeführt.
wird später aber bei erstellen der Form eingesetzt.

Code:

procedure TForm1.Button3Click(Sender: TObject);
var
i, ilZeile : integer;
Summe : double;
begin
  Summe := 0;
  ilZeile := Stringgrid1.RowCount;
  for i:= StringGrid1.RowCount to StringGrid1.RowCount-1 do  //  Ab hier überspringt er alles
    begin
      Summe := Summe+ StrtoFloatdef(Stringgrid1.Cells[1,i],0);
    end;
  Form1.StringGrid1.RowCount := Form1.StringGrid1.RowCount + 1;      //Ab hier überspringt er alles
  Stringgrid1.Cells[1, ilZeile] := FloattoStr(Summe);
end;

[Jasocul]

Hast du denn mal nachgesehen, was in StringGrid1.Selection.Top und StringGrid1.Selection.Bottom für Werte stehen?

[haentschman]

Moin...
Wie wird dieses Stringrid gefüllt? Händisch / automatisch / Einlesen Datei etc.?

[akazukilp]

Zitat von haentschman:

Moin...
Wie wird dieses Stringrid gefüllt? Händisch / automatisch / Einlesen Datei etc.?

Der wird Automatischbefüllt