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