Hi Leute ich soll ein Programm schreiben das 8 zufalls Zahlen in einem Wert von 1-6 ausgibt und daraus einen Durchschnitt erechnert dazu kommt das die zufalls Zahlen in einem Memofeld als auch in einem Stringrid Feld eingebunden werden sollen das funktioniert auch alles soweit
Jetzt ist das Problem das Stringgrid Feld hat 2 Spalten und 8 Zeilen leider ist es so das egal wie ich es einbinde alles innerhalb von einer Spalte steht und nicht etwa in 2 es wird wohl sicherlich nichts schweres sein aber ich seh den Fehler einfach nicht
Hier mal der Code
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| procedure TForm1.Button2Click(Sender: TObject);
var noten, i, summe, j : integer;
notendurchschnitt: double;
begin
randomize;
summe := 0;
memo1.Clear;
for i:= 1 to 8 do
begin
noten:= random(6)+1;
memo1.lines.add(inttostr (i) + '.Note:' + inttostr (noten));
stringgrid1.Cells[1,i-1]:=(inttostr (i) + '.Note:' + inttostr(noten));
summe:= summe + noten;
end;
notendurchschnitt:= summe / 8;
label1.Caption:= FloatToStrf(notendurchschnitt, fffixed, 10,1);
stringgrid1.Cells[0,i-1] := floattostrf(notendurchschnitt, fffixed, 10, 1);
end; |
Also dieser Teil soll in der ersten Spalte stehen
Delphi-Quelltext
1:
| stringgrid1.Cells[1,i-1]:=(inttostr (i) + '.Note:' + inttostr(noten)); |
und dieser in der 2. Spalte
Delphi-Quelltext
1:
| stringgrid1.Cells[0,i-1] := floattostrf(notendurchschnitt, fffixed, 10, 1); |
Hoffe das ihr den Fehler seht
Weiss keiner was da los ist 
bummi
Dankeschön als ich den Durchschnitt in der rechten Spalte gesehen hab war mir direkt klar was es ist 