Stringgrid Zeileweise abarbeiten II

**capo**

Delphi-Quellcode:

			function LeseDieNaechsteZeile(const StringGrid: TAdvStringGrid; aCol: integer = 1): string;

var aRow: Integer;

begin

  aRow := StringGrid.Row;

  if aRow < Pred(StringGrid.RowCount) then

    Inc(aRow)

  else

    aRow := StringGrid.FixedRows;

  StringGrid.Row := aRow;

  Result := StringGrid.Cells[aCol, aRow];

end;

Momentan ist es so das alles Zeilenweise abgearbeitet wird und wieder in der ersten Zeile begonnen wird.
Nun möchte ich doch dass es in der letzten Zeile endet und nicht wieder von vorne anfängt.
Wie muss ich den Code oben dafür anpassen?

Gruss
Capo

Stringgrid Zeileweise abarbeiten II

Stringgrid Zeileweise abarbeiten II

Forumregeln