Stringgrid Zeileweise abarbeiten

[Sir Rufo]

ja, oder so:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    ...
    StringGrid1 : TStringGrid;
    ...
  private
    ...
    FHierBinIchGerade : integer; // <--- sollte natürlich im OnCreate noch initialisiert werden (z.B. mit 0)
    ...
    function LeseDieNaechsteZeile : string;
  end;

...

function LeseDieNaechsteZeile : string;
begin
  FHierBinIchGerade := FHierBinIchGerade + 1;
  if 
    ( FHierBinIchGerade > StringGrid1.RowCount )
  then
    FHierBinIchGerade := 0;
  Result := StringGrid1.Cells[ 0, FHierBinIchGerade ];
end;