Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Satty67,
4. Jul 2009
Das liegt daran, das Deine ListBox1 auch leer ist! Dabei darfst Du Dich nicht von der Anzeige täuschen lassen...
procedure TForm1.RandomizeArrays;
var i:integer;
begin
randomize;
Listbox1.Clear;
for i:= 0 to (400-1) do
begin
Listbox1.items:= DatetoStr(Random(42000)); // Riesen Fehler
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Satty67,
4. Jul 2009
Der Code von toms funktioniert bei mir auch einwandfrei.
Du hast den Code ja an Deine Umgebung angepasst, da ist ein Fehler passiert. Poste, wie Du Toms Code bei Dir implementiert hast...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Satty67,
30. Mai 2009
Okok... war gestern auch spät und ich war heiterer Stimmung (wie man an meinem Text sieht).
Probier mal, sortieren aus/ein...
L.Sorted := False;
L.Sorted := True;
for i := 0 to L.items.count-1 do L.Items:=copy(L.Items,7,length(L.items)); //Entfernt die Tage
Scheinbar wird nicht nochmal sortiert, wenn Sorted bereits True ist. Die Hilfe spricht zwar von sortiertem Einordnen, aber das war...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Satty67,
29. Mai 2009
Du sortierst anhand der Tage seit 1.1.1990... ich nehme an, die Liste wird auch mit den Tagen am Anfang gespeichert oder in "Lade" davor eingefügt.
Wenn alles geladen und sortiert ist, entfernst Du die Tage, weil es doof aussieht. Wahrscheinlich in der Funktion "Lade" oder "aktuell", je nachdem... den Code hast Du nicht gezeigt.
Sooo.. die Liste ist geladen, sortiert und die Tage davor sind...