Stringgrid Zeileweise abarbeiten II

[capo]

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

[DeddyH]

Der else-Zweig muss weg.

[capo]

Danke, wie kann ich erkennen wann ich in der letzten Zeile bin?
Also z.B. eine kurze Nachricht erhalte?

Gruss
Capo

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

[toms]

Zitat:

Zitat von capo

Danke, wie kann ich erkennen wann ich in der letzten Zeile bin?
Also z.B. eine kurze Nachricht erhalte?

Gruss
Capo

Genau dann, wenn diese Bedingung False ist.

Delphi-Quellcode:

if aRow < Pred(StringGrid.RowCount) then

PS: Probiere mal den Code in LeseDieNaechsteZeile() zu verstehen.
Dann kommst du ganz alleine zu einer Antwort und wird dich dann eher weiter bringen, als wenn wir
dir die Antwort direkt geben.

Edit: Ist (leider) schon passiert....

[DeddyH]

Ich geh mich ja schon schämen :oops:

[capo]

@Tom
Das stimmt schon, manchmal fällt es mir schwer Wege zum testen zu finden.
Wahrscheinlich bin ich einfach nicht mutig genug.

Gruss Capo

@DeddyH
nee, ich muss mich schämen ;)