Hi Leute,
ich raffs nicht. Habe ein Programm, das in einer Listbox Text mit vorgestelltem Datum ausgibt.
Meine Funktionen können die Listbox auch sortieren und das Ganze als Text Datei abspeichern.
Das Problem ist, daß ich das Programm jedesmal schliesen und neustarten muß, damit das Sortieren funktioniert. Wird nach dem Start in die Listbox mehr als ein Eintrag gemacht und mehr als einmal sortiert, steht der neue Item am Anfang der Liste.
Das Proggi sortiert das Datum ausgehend nach den vergangenen Tagen seit 1.01.1900 bis zum eingegebenen Datum. Die Tage stehen kurzfristig am Anfang des Items werden dann mit 'Listbox.sorted' sortiert, danach werden die Tage sofort entfernt, so daß das Datum am Anfang des Items steht:
Beispiel:
07334 31.01.1920 Blalbalbla...
14014 16.05.1938 Tusnelda Geburtstag
danach steht in der Liste:
31.01.1920 Blabalbla
16.05.1928 Tusnelda Geburtstag
Bei Übergabe der aktuellen Jahreszahl in die Funktion sortiert diese nach Monaten und Tagen.
Wo liegt der Fehler? Warum muß ich das Proggi vor dem Sortieren neu starten?
In 'onCreate' wird die Datei geladen:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
BorderIcons := [biSystemmenu];
Form1.caption:='Zeitereignisse um den heutigen --> '+DatetoStr(Date);
Statusbar1.panels[0].text:='Datum: '+ DatetoStr(Date);
Statusbar1.panels[1].text:='Woche: '+ InttoStr(WeekOfYear(Date));
Statusbar1.panels[2].text:='Jahrestag: '+ TagdesJahres;
Listbox1.itemIndex:=0;
LADE; // <-Lade die Datei in Liste
aktuell;
end;
Hier wird ein neuer Item eingetragen, eigentlich schon sortiert und gespeichert:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var InputString:String;
temp:String;
begin
InputString:= InputBox('Eingabedialogfenster', 'Datum eingeben, dann 3 Leerzeichen, dann Text', '');
if (IstString_einDatum(DatetoStr(StrtoDate(copy(Inputstring,1,10))))) then
begin
temp:= DatetoStr(StrtoDate(copy(Inputstring,1,10)));
Inputstring:=temp+copy(Inputstring,11,length(Inputstring));
Listbox1.items.add(Inputstring);
// Listbox1:=(sortiereListe(Listbox1));
aktuell;
Listbox1.items.SaveToFile('Uebersicht.txt');
end;
end;
Hier das Sortieren über einen Button:
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
begin
Listbox1:=(sortiereListe(Listbox1));
end;
Listbox.sorted wird in der 'function TForm1.sortiereListe(L:TListbox):TListbox;' auf 'True' gesetzt.