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

[hoika]

Hallo,

Kommentier mal die ersten drei Zeilen aus.

Delphi-Quellcode:

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

frmHeaderFooter.FDTableRech.Next;

Geht es dann?
Beim Post wird vielleicht die Query geschlossen und wieder geöffnet.

[Markus Effenberger]

Zitat von hoika:

Hallo,

Kommentier mal die ersten drei Zeilen aus.

Delphi-Quellcode:

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

frmHeaderFooter.FDTableRech.Next;

Geht es dann?
Beim Post wird vielleicht die Query geschlossen und wieder geöffnet.

Ohne die drei Zeilen läuft die Schleife durch.
Hast du einen Vorschlag, wie man eine solche Schleife mit Schreibzugriffen sauber programmieren kann?

Markus

[Markus Effenberger]

Code:

      if frmHeaderFooter.FDTableRech.FieldByName('sortieren').AsString = ''
        then begin
          frmHeaderFooter.FDTableRech.Edit;
          frmHeaderFooter.FDTableRech.FieldByName('sortieren').AsString := textsortieren;
          frmHeaderFooter.FDTableRech.Post;
          frmHeaderFooter.FDTableRech.First;
        end else begin
          frmHeaderFooter.FDTableRech.Next;
        end;

Das hier funktioniert jetzt zwar, aber das kann doch nicht ernsthaft die beste Lösung sein

[hoika]

Hallo,
nimm zur Bearbeitung einfach eine eigene zweite Query.
Vielleicht gibt es bei deiner Komponente auch BookMarks (SetBookMark, GotoBookMark)?

[Uwe Raabe]

Welcher Index ist denn aktiv? Wenn das Sortierfeld zum Index gehört, ändert sich das natürlich beim Schreiben und damit auch die Reihenfolge.

[Markus Effenberger]

Zitat von Uwe Raabe:

Welcher Index ist denn aktiv? Wenn das Sortierfeld zum Index gehört, ändert sich das natürlich beim Schreiben und damit auch die Reihenfolge.

autsch. das war tatsächlich die Ursache

danke!