also so siehts aus:
"ergebnis" ist der wert der aus einer bestellung hervorgeht, quasi der einzelbestellwert.
Im stringgrid werden viele dieser einzelbestellwerte aufgelistet und sollen über "button6" addiert und in einem Label ausgegeben werden.
Delphi-Quellcode:
procedure TForm1.Button6Click(Sender: TObject);
var
y, x : integer;
ergebnis : double;
begin
ergebnis := 0;
with stringgrid1 do
begin
for x:= fixedrows to rowcount -3 do
begin
ergebnis:= ergebnis + strtofloat(cells[y,x]);
end;
end;
label21.caption:=floattostr(ergebnis);
end;
end.
[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]