[Gelöst] Verhalten Stringgrid

[MacWomble]

Ich habe ein kleines Problem mit einem Stringgrid bei folgendem Code:

Code: Alles auswählen

    for i := 0 to Project.Units.Count - 1 do
    begin
      sgUnits.RowCount := i + sgUnits.FixedRows + 1;
      ShowMessage(Project.Units[i].Name + ',' + Project.Units[i].PathExt);
      sgUnits.Rows[i + sgUnits.FixedRows].AddCommaText(Project.Units[i].Name + ',' + Project.Units[i].PathExt);
    end;   

Beim ersten Aufruf funktioniert es wie es soll.
Wird die Routine jedoch ein zweites mal aufgerufen, wird nur die erste Zeile des Stringgrids mit dem Namen gefüllt, die weiteren Zeilen werden zwar angelegt, sind aber leer.
Das Showmessage habe ich nur zum Testen eingebaut, es zeigt immer die richtigen Werte an, auch beim zweiten Durchlauf.

[h-elsner]

Blöde Frage, aber hast du vor dem Aufruf RowCount zurückgesetzt?

Gruß HE

[wp_xyz]

Weiß nicht, ob das dein Problem ist, aber die Zeilenzahl innerhalb der Schleife hochzuzählen, wo der Wert eigentlich von Anfang an schon bekannt ist, finde ich sehr ungeschickt. Auch würde ich nicht Rows.AddCommaText nehmen, zum einen weil mit jedem Aufruf an die schon existierende Zeile angehängt wird anstatt von vorne zu beginnen, und zum anderen weil es die Funktion in der Release-Version von FPC nicht gibt - dadurch versperrst du dir eine Rückzugsmöglichkeit auf die Release-Version, falls FPC-Trunk einmal totale Schwierigkeiten machen sollte (generell würde ich sowieso nicht mit FPC-Trunk entwickeln). Also:

Code: Alles auswählen

  sgUnits.RowCount := Project.Units.Count + sgUnits.FixedRows;
  for i := 0 to Project.Units.Count - 1 do
  begin
    sgUnits.Rows[i + sgUnits.FixedRows].CommaText := Project.Units[i].Name + ',' + Project.Units[i].PathExt;
  end; 

[MacWomble]

1. Die RowCount habe ich nicht zurück gesetzt, da ich diese ja in der Schleife gesetzt habe
2. Die Lösung von wp_xyz sieht gut aus und funktioniert wunderbar

Herzlichen Dank!