StringGrid, Inhaltsanzeige

[Gerkey]

Den nachstehenden Code habe ich aus der Borland Delphi 7 Dokumentation entnommen und auf meine Zwecke angepasst. Dabei aber wohl etwas übersehen / falsch gemacht, denn im StringGrid “M.StrGrd“ werden nur 5 der 6 Zeilen angezeigt, die aus der Listbox „M.lbT“ gelesen werden.
Bei der schrittweisen Kontrolle im Debugger wird auch der 6. Satz als ins StringGrid übernommen gemeldet, aber eben leider nicht auf dem Bildschirm gezeigt.
Außerdem erscheint auch die StrGrd.FixedColor nicht als blau, sondern als kaum erkennbare bläuliche Farbe.

M.StrGrd.RowCount := M.lbT.Items.Count;
M.StrGrd.Height := (M.StrGrd.RowCount + 1) * M.StrGrd.RowHeights[1] + 5;
M.StrGrd.FixedColor := $00FF8000; { blau }
for i := 0 to M.lbT.Items.Count - 1 do
begin
s := M.lbT.Items[i];
sDatum := copy(s,14,10); sTeams := copy(s,25,1); sTische := copy(s,33,1);
sBoards:= copy(s,42,2);
AnzT := i + 1;
M.StrGrd.Cells[0,AnzT] := sDatum;
M.StrGrd.Cells[1,AnzT] := ' ' + sTeams;
M.StrGrd.Cells[2,AnzT] := ' ' + sTische;
M.StrGrd.Cells[3,AnzT] := ' ' + sBoards;
M.StrGrd.Cells[4,AnzT] := 'löschen';
end;
M.StrGrd.Row := 1; { setzt Focus auf die Zeile mit "jüngster" Turnierdatei }

Kann jemand mir sagen, was ich falsch mache ?

[hoika]

Hallo,
hat das StringGrid ein zusätzliche Zeile für die Überschrift?
Dann sollte die erste Zeile ein +1 enthalten.

Und lass das Height-Setzen mal testweise weg.

[haentschman]

Moin...:P

Delphi-Quellcode:

sDatum := copy(s,14,10); sTeams := copy(s,25,1); sTische := copy(s,33,1);
sBoards:= copy(s,42,2);

..sieht stark nach Datenhaltung in einem visuellen Control aus. :cry: Besser die Daten in einer Klasse oder so halten und im Grid anzeigen...:wink:

[Gerkey]

danke Euch für die KOmmentare !