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

[Kralle]

Moin,

ich möchte Daten aus einer StringList in StringGrid übertragen.
Da in der StringList mehr Zeilen vorhanden sind als zur Entwurfszeit dem StringGrid mittel RowCount zugewiesen wurden,
muß ich zur Laufzeit die Anzahl der Zeilen erhöhen.
Ein  StringGrid1.RowCount:=sl.count; funktioniert aber nicht.

Muß da noch vorher irgendwo irgendein Schalter gesetzt werden?

Gruß Heiko

[Der schöne Günther]

Das sollte aber funktionieren- Fehlermeldung, irgendwas? Ansonsten musst du natürlich bedenken dass "RowCount" bereits inklusive der Überschriftenzeilen (FixedRows) ist.

[Bernhard Geyer]

Fragen über Fragen.
Die Wichtigste ist wohl: Was bedeutet "Funktioniert nicht"?

[Kralle]

Moin Bernhard,

Zitat von Bernhard Geyer:

Fragen über Fragen.
Die Wichtigste ist wohl: Was bedeutet "Funktioniert nicht"?

Code:

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

weil

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;

nicht funktioniert.
Setzte ich im Objektinspektor den RowCount manuell hoch, funktioniert alles.

Gruß HEiko

[Kralle]

Die Lösung:
gefunden hier: http://www.delphipraxis.net/741566-post2.html

 StringGrid1.RowCount:=sl.count+StringGrid1.FixedRows; // ohne den hinteren Teil funktioniert es nicht Aber warum ist das so?


Gruß Heiko

[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]"