Stringgrid Zeileweise abarbeiten

[DeddyH]

Das nenne ich mal eine elegante Lösung :thumb:

[capo]

Danke für eure Hilfe. Wie kann ich dann feststellen ob ich in der letzten Zeile bin und dann wieder in die erste Zeile springen?

[toms]

Zitat:

Zitat von capo

Danke für eure Hilfe. Wie kann ich dann feststellen ob ich in der letzten Zeile bin und dann wieder in die erste Zeile springen?

Das macht LeseDieNaechsteZeile() schon

[capo]

Danke.... :dance:

[capo]

Hi toms,
merkwürdig aber der bleibt in der letzten Zeile stehen.
gruss vom Capo

[DeddyH]

Dann versuch es mal mit der langen Version:

Delphi-Quellcode:

function LeseDieNaechsteZeile(const StringGrid: TStringGrid; 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;

[capo]

Ja, damit hat es geklappt, muss mir aber noch die Unterschiede ansehen. Danke