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