Stringgrid Zeileweise abarbeiten II

[DeddyH]

Du hast den Code noch nicht ganz verinnerlicht, oder?

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;
    ShowMessage('Letzte Zeile erreicht');
  StringGrid.Row := aRow;
  Result := StringGrid.Cells[aCol, aRow];
end;