Hallo zusammen,
habe hier das Problem das ich eine reihe von Datums habe, Ich gehe nun mit einem z.b 12.12.2004 durch und suche das nächst höhere, hat er das gefunden soll er in der Zeile drüber eine neue zeile machen und die alte einfügen. somit sortiere ich Datums sozusagen. Leider geht das bei mir nicht!

Ich lasse eine For schleife Laufen die alle Daten durchgeht

zusammenfalten · markieren

Delphi-Quellcode:

zahler:integer=0;
Var Data,Data1:Tdate;
Data:=neuDatum;
For x:=0 to Datenende do
  Begin
  Data1:=Datum[x+zahler];
  If Data > Data1 then
    Begin
    Nexline;
    inc(zahler);
    inc(Datenende):
    copy der Zeile;
  end;
end;

Ich verschiebe keine Datan sondern erstelle die neue Zeile daher der Zähle der die erstellten Zeilen mitzählt!

Aber beim Durchlauf packt er einfach nicht die Daten an die Stelle wo sie hingehören.

Was meint ihr dazu ?

THX

Cyberbob

Hi!
Lass dir die Datumswerte doch von TList sortieren. Wie das geht steht hier
Danach kannst du die sortierte Liste mit einer for-Schleife durchgehen und die Werte irgenwohin ausgeben.