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]