Stringgrid Zeileweise abarbeiten

[toms]

Delphi-Quellcode:

function LeseDieNaechsteZeile(StringGrid: TStringGrid): string;
begin
  with StringGrid do
  begin
    Row := (Row + 1) mod RowCount; // Zur nächsten Zeile springen
    Result := Cells[1, Row];       // Wert von aktueller Zeile / Spalte 1 auslesen
  end;
end;