Einzelnen Beitrag anzeigen

akazukilp

Registriert seit: 3. Sep 2020
18 Beiträge
 
#4

AW: Stringgrid Spalten einzeln summiere

  Alt 22. Okt 2020, 20:36
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);
  Mit Zitat antworten Zitat