TStringGrid lässt sich nicht füllen

rob87 · Verfasst: Mi 30.01.08 15:25

Hallo,

ich will ein StringGrid mit Excel-Werten befüllen.

Er bringt die Werte nacheinander ohne Probleme in einer ShowMessage. Im StringGrid will er sie allerdings nicht anzeigen?? Wasn da los

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

  for i := 4 to (zeilenanzahl + 4) do
    begin
      x := 1;
      //ShowMessage(Excel.Sheets[sheetname].Cells[i,2].Value);     <!-- Das geht wunderbar
      SG1.Cells[0,x] := Excel.Sheets[sheetname].Cells[i,2].Value;  <!-- Aber warum kann er es ned reinschreiben??  *lol*
      SG1.Cells[0,x] := 'Hallo';  <!-- Da schreibt ers auch nur die Zelle 0,1
                                  //Hab den Verdacht, dass er ned weiterspringt
                                  //Vll. kann da mal jemand drüberschauen
      x := x+1;
    end;

Merci euch

SvenAbeln · Beiträge: 334 Erhaltene Danke: 3

Du setzt in jedem Schleifendurchlauf X:=1, daher überschreibst du immer wieder die selben Zellen.
Schieb mal die markierte Zeile vor deine Schleife.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

  for i := 4 to (zeilenanzahl + 4) do
    begin
      x := 1;
      //ShowMessage(Excel.Sheets[sheetname].Cells[i,2].Value);     <!-- Das geht wunderbar
      SG1.Cells[0,x] := Excel.Sheets[sheetname].Cells[i,2].Value;  <!-- Aber warum kann er es ned reinschreiben??  *lol*
      SG1.Cells[0,x] := 'Hallo';  <!-- Da schreibt ers auch nur die Zelle 0,1
                                  //Hab den Verdacht, dass er ned weiterspringt
                                  //Vll. kann da mal jemand drüberschauen
      x := x+1;
    end;

rob87 · Verfasst: Mi 30.01.08 16:03

SvenAbeln hat folgendes geschrieben:

Du setzt in jedem Schleifendurchlauf X:=1, daher überschreibst du immer wieder die selben Zellen.
Schieb mal die markierte Zeile vor deine Schleife.

Stimmt

Aber nun noch schnell was: Nun gibt er mir nur soviel Zeilen aus, wie ich während dem Programmieren im Bereich RowCount angegeben hab? Was hab ich noch übersehen :roll:

Wobei ich nicht glaub, dass er in der Schleife nicht weiterzählt, sondern dass er einfach nur ned mehr anzeigt??

SvenAbeln · Beiträge: 334 Erhaltene Danke: 3

Versuch doch mal:

markieren

Delphi-Quelltext

1:	SG1.RowCount:=zeilenanzahl;

rob87 · Verfasst: Mi 30.01.08 16:14

SvenAbeln hat folgendes geschrieben:

Versuch doch mal:

markieren

Delphi-Quelltext

1:	SG1.RowCount:=zeilenanzahl;

Funktioniert. *grummel* Da hät ich selbst auch drauf kommen können. Merci

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme