Einzelnen Beitrag anzeigen

Gerkey

Registriert seit: 18. Okt 2016
Ort: Bad Kreuznach
52 Beiträge
 
Delphi XE Professional
 
#1

StringGrid, Inhaltsanzeige

  Alt 12. Okt 2021, 08:52
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 ?
  Mit Zitat antworten Zitat