Schleife durch Tabelleneinträge - .eof ist sofort erfüllt?

[Markus Effenberger]

Hier ist grad irgendwie ein klassischer Fall von Wald und Bäume.

Rechnungsnummern können Integer sein, aber auch mal Buchstaben enthalten.
Die Rechnungsnummern sollen nach Nummern sortiert werden, und nach Text, sofern in der Nummer ein Buchstabe drin ist.

Also z.B.

11
333
ABC
44
5

soll werden zu:

5
11
44
333
ABC

Also führe ich eine Sortierspalte ein, in der die Integer als Text mit Nullen gefüllt werden sollen.
Soweit die Idee.

Funktioniert aber nicht.

Beim ".FDTableRech.Next;" springt er direkt aus der While-Schleife heraus, obwohl im Beispiel 11 Datensätze enthalten sind.

Code:

//ShowMessage(IntToStr(frmHeaderFooter.FDTableRech.RecordCount)); ist 11

  frmHeaderFooter.FDTableRech.First;
  while not frmHeaderFooter.FDTableRech.Eof do
    begin

      textsortieren := frmHeaderFooter.FDTableRech.FieldByName('RechNr').AsString;
      testint := StrToIntDef(textsortieren,-1);
      textsortieren := IntToStr(testint);
      if testint = -1 then begin
        textsortieren := frmHeaderFooter.FDTableRech.FieldByName('RechNr').AsString;
      end else begin
        while Length(textsortieren) < 10 do textsortieren := '0' + textsortieren;
      end;

      frmHeaderFooter.FDTableRech.Edit;
      frmHeaderFooter.FDTableRech.FieldByName('sortieren').AsString := textsortieren;
      frmHeaderFooter.FDTableRech.Post;
      frmHeaderFooter.FDTableRech.Next;      <-

    end;

//frmHeaderFooter.FDTableRech.Refresh; // reicht nicht
  frmHeaderFooter.FDTableRech.Active := False;
  frmHeaderFooter.FDTableRech.Active := True;

  frmRechÜbersicht.ListView1.EndUpdate;

Es handelt sich um FMX und auf die Tabelle ist eine ListView mit LiveBindungs verknüpft, falls das irgendwie wichtig sein sollte.

Mir sind leider die Ideen ausgegangen, warum der da direkt immer aus der Schleife raus springt.

Freue mich auf Gedanken dazu

Markus