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;
StringGrid.Row := aRow;
Result := StringGrid.Cells[aCol, aRow];
end;
Momentan ist es so das alles Zeilenweise abgearbeitet wird und wieder in der ersten Zeile begonnen wird.
Nun möchte ich doch dass es in der letzten Zeile endet und nicht wieder von vorne anfängt.
Wie muss ich den Code oben dafür anpassen?
Gruss
Capo