StringGrid RowCount ist immer 0 :-/

[flomei]

Ich habe mir eine Funktion geschrieben, die mir die Anzahl der Zeilen in einem StringGrid liefern soll. Hier mal meine Funktion:

Delphi-Quellcode:

function GetLastEntry: Integer;
  begin
    LastEntryIndex := MainForm.StringGrid.RowCount -1 //-1 wegen fixierter Zeile
  end;

LastEntryIndex ist eine globale Integer Variable.

Nun habe ich zu Testzwecken im OI mal fünf Zeilen eingestellt. Nun wollte den Wert während der Laufzeit abfragen:

Delphi-Quellcode:

procedure TMainForm.LastEntryClick(Sender: TObject);
  begin
    showmessage('Das Grid hat ' +IntToStr(LastEntryIndex) +' Zeilen')
  end;

Mein Programm sagt mir aber immer, dass sich 0 Zeilen im Grid befinden. Liegt das daran, dass ich diese im OI eingestellt habe oder an meinen Funktionen und Prozeduren?

MfG Florian

P.S.: Habe auch schon zur Laufzeit neue Zeilen erzeugt. Es änderte sich nichts.

[Keldorn]

so wie du das machst, wird die function überhaupt nie aufgerufen und damit wird der wert nie geändert, zumindestens ist das aus deinem Code nicht ersichtlich
du könntets aber die globale Veriabe sparen:

Delphi-Quellcode:

function GetLastEntry: Integer;
  begin
    Result := MainForm.StringGrid.RowCount -1 //-1 wegen fixierter Zeile
  end;
procedure TMainForm.LastEntryClick(Sender: TObject);
  begin
    showmessage('Das Grid hat ' +IntToStr(GetLastIndex) +' Zeilen')
  end;

Mfg Frank