Entwickler-Ecke :: Thema anzeigen - In ein Stringrid Feld einbinden

ridom - Mi 06.05.09 11:53
Titel: In ein Stringrid Feld einbinden

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

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!