[gelöst]: Lazarus: StringGrid.RowCount zur Laufzeit erhöhen

[BadenPower]

Zitat von Kralle:

Moin Bernhard,

Delphi-Quellcode:

StringGrid1.RowCount:=sl.count;  //funktioniert anscheinend nicht
    for i := 0 to sl.count-1 do
        begin
         StringGrid1.Rows[i+1].StrictDelimiter := True;
         StringGrid1.Rows[i+1].CommaText:=sl.Strings[i];
   end;

Nehmen wir einmal an, dass Du 24 Eintrage in "sl" hast.

Also sl.Count ist 24.
In der 1. Anweisung setzt Du RowCount auf die Länge von sl (24).
Du hast also im Stringgrid Zeilen mit den Nummern 0 bis 23.

In der Schleife greifst Du aber auf die Zeilen 1 bis 24 zu.

Da es Zeile 24 nicht gibt ist der Index "Out of Range":

Code:

Exception class "EGridException" at $005666C9 with message "Index Out of range Cell[Col=0 Row=24]"