stringgrid zusammrechnen und färben
hallo....
ich möchte zu dem code unten zwei funktion hinzufügen.
Delphi-Quellcode:
in zelle 8 werden die einzelnen zellen einer zeile zusammengerechnet.
stringgrid2.Cells[8, y] := FloatToStr(sum);
die wiederum zu zelle 9 hinzugerechnet werden sollen, (in zelle 9 steht -12) wenn dann die 0 in zelle 9 erreicht ist soll die zelle rot werden. das hinzuzählen habe ich so versucht, was aber nicht klappt. ganz zu schweigen vom färben der zelle, wer mag mir helfen ?
Delphi-Quellcode:
// *****
s:= FloatToStr(StringGrid2.Cells[9, y]); j:= FloatToStr (StringGrid2.Cells[8, y]); x := s+j; stringgrid2.Cells[9, y] :=FloatToStr(x);
Delphi-Quellcode:
procedure TForm1.Button8Click(Sender: TObject);
var s ,j, nr, x,sum: double; i, y:integer; begin for y := 1 to 52 do //52 wegen der Anzahl der Wochen im Jahr begin sum := 0; for i := 1 to 7 do //Tage in der Woche begin if STringGrid2.Cells[i, y] <> '' then begin nr := StrToFloat(StringGrid2.Cells[i, y]); Inc(sum, nr); end; stringgrid2.Cells[8, y] := FloatToStr(sum); // ***** hier hatte ich den code eingefügt end; end; end; |
Re: stringgrid zusammrechnen und färben
Delphi-Quellcode:
Ich glaube kaum, dass in der Zelle ein Float drinsteht.
s:= FloatToStr(StringGrid2.Cells[9, y]);
Und das nächste mal bitte die Fehlermeldung sagen, sonst ist das hier nur ein Rumgerate. :roll: |
Re: stringgrid zusammrechnen und färben
hallo luckie
doch das steht da drinnen... FloatToStr wegen evt. kommas. es gibt keine fehlermeldung. nur das beim ersten button-klick noch alles in ordnung ist, aber bei jedem weiteren klick, sich das was im stringgrid steht verdoppelt. http://www.fusshoeller.com/screens/tabelle_1.jpg sie summe stimmt mittlerweile (auf dem screen nicht) summe ist
Delphi-Quellcode:
differenz ist
stringgrid2.Cells[8, y] := FloatToStr(sum);
Delphi-Quellcode:
stringgrid2.Cells[9, y] := FloatToStr(sum);
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:49 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz