Thema: Delphi Addieren von Cells?

Einzelnen Beitrag anzeigen

Tiny

Registriert seit: 15. Apr 2004
Ort: Hobeck
10 Beiträge
 
#7

Re: Addieren von Cells?

  Alt 18. Apr 2004, 17:59
ja, sowas hab ich gesucht, aber es funktioniert irgendwie nicht! kann sein, dass ich es falsch umgesetzt habe?!

Also so sieht das ganze aus. Das davor ist zum Eintragen der erreichten Punkte in die Zellen und diese sollen dann noch addiert werden, sie stehen untereinander.
Delphi-Quellcode:
procedure TForm9.FormShow(Sender: TObject);
var x,y: integer;
    sz,sp,ss,ha: integer;
    summe, i, n:integer;

begin
     datenladen;
     x:= 0;
     y:=0;
     sz:=0;
     sp:=0;


     stringgrid1.Cells[0,0]:= 'Spielername';

     for sz:=1 to 18 do
     begin
          stringgrid1.Cells[x+sz,0]:= inttostr(sz)+'. Spieltag';
     end;
     for sp:= 1 to 12 do
        stringgrid1.Cells[0,y+sp]:= mannschaft[4].mitglieder[sp];

     for sz := 1 to 18 do
     begin
        for ss := 1 to 5 do
        begin
          for ha := 1 to 2 do
          begin
            for sp := 1 to 12 do
            begin
            if spieltag[sz].mannschaft[ss,ha] = 4 then
            begin
                if spieltag[sz].punkte[ss,ha,sp] <> 0 then

                  stringgrid1.Cells[x+sz,sp]:= IntToStr(spieltag[sz].punkte[ss,ha,sp])

                  else
                        begin
                                if spieltag[sz].punkte[ss,ha,sp] = 0 then
                                        stringgrid1.Cells[x+sz,sp]:= ' ';
                        end;
                end;
            end;
          end;
        end;
     end;


 for sz := 1 to 18 do
 begin
  for sp:= 1 to 12 do
  begin
   i:= Inttostr(Stringgrid1.cells[x+sz,sp]; { wandelt in einen Integer}

   n:=strtoint(inputbox('x+sz','12',' '));
   for i:=1 to sp do begin
    x:=strtoint(stringgrid1.cells[x+sz,sp]);
    summe:=summe + x;
  end;
  stringgrid1.cells[x+sz,14]:=inttostr(summe);
 end;
 end;
 end;


end.


Kannst du mir sagen, was falsch ist?

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]
  Mit Zitat antworten Zitat