Code: Alles auswählen
procedure TForm1.Button2Click(Sender: TObject);
var a,i,n,m,c : integer;
begin
m:= 0;
c:= 0;
for a := 1 to 9 do
begin
for n:= 1 to 4 do
begin
if stringgrid1.cells[2*a,n]= 'x' then
begin
m:= m+strtoint(stringgrid1.cells[2*a-1,n]);
c:= c+1;
end;
end;
end;
edit3.text:= inttostr(m);
edit4.text:= inttostr(c);
end;
dieser Quelltext sollte eigentlich bestimmte markierte Teile einer Tabelle zusammen rechnen nur funktioniert dies leider nicht, könnte mir bitte jemand helfen?
danke