Stringgrid Zeileweise abarbeiten

[DeddyH]

Das nenne ich mal eine elegante Lösung

[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 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....

[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