Hi Leute.
Ich arbeite wieder an einem Kassenprogramm und möchte die Gesamtsumme der Bestellwerte, welche in ein Stringgrid gelistet werden (Button Bestellung Abgeben) mit einem Knopfdruck in einem Label angezeigt haben (Button Gesamtverkauf des Abends).
ich habe schon verschiedene Methoden und Wege versucht aber nichts hat geklappt. Habs mit Stringgrid-Löschen funktion versucht und die irgendwie umzumodeln, dass sie statt löschen, addiert. Naja... erfolglos. Die Suche und Google spucken auch nichts verlässliches aus.
Das hat mir die suche ausgespuckt: Dort wird die Gesamtsumme im Ende des Stringgrids ausgegeben.
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
var
y, x : integer;
summe : double;
begin
summe := 0;
with stringgrid1 do
begin
for y:= fixedcols to colcount -1 do
begin
for x:= fixedrows to rowcount -3 do
begin
summe:= summe + strtofloat(cells[y,x]);
cells[y,rowcount-1] := floattostr(summe);
end;
end;
end;
end;
[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]