Objekte in einer Reihenfolge verwalten

[Klaus777]

Hallo zusammen,

ich habe das Problem, das ich Objekte in ihrer Reihenfolge verwalten möchte.
d.h. Objekt anlegen und in einer Listbox anzeigen, klappt.

Als Grundlage habe ich das hier verwendet:
www.delphipraxis.net...ontainer-klasse.html

Jetzt möchte ich das Objekt in der Reihenfolge in der Listbox verschieben.

Das Verschieben der Einträge geht auch, nur die Zuordnung der Objekte passt dann nicht mehr.

Hat jemand so etwas schon mal gebaut?

Viele Grüße Klaus

[Redeemer]

Link geht nicht.

Was heißt Objekte verschieben? Man kann in den TStrings einer TListBox.Items auch jedem Eintrag neben einem String auch einen Pointer zuweisen (in Delphi ungenau Objekt genannt). Wenn man Einträge wie vorgesehen mit TStrings.Move verschiebt, wandert der Pointer mit.

[haentschman]

Moin...

Zitat:

Objekt anlegen und in einer Listbox anzeigen

...ich tippe mal darauf, daß du ein "Trennung der Daten von der Visualisierung Problem hast".
Lösung: Verwalte deine Objekte in z.B. Listen in einer anderen Unit = Logik (TObjectList<TBlubb> oder so...) Dann kannst du den Inhalt der Liste anzeigen = GUI.

Noch bessere Trennung über Events:
Die GUI sagt der Logik "Lade mir die Objekte"...die Logik lädt die Objekte und benachrichtigt die GUI über ein Event...z.B. OnLoadObjects(Liste)...Die GUI empfängt die Liste, und wertet sie aus = Anzeige.

[Klaus777]

Hallo ihr beiden,
danke schon mal, da habe ich eine Richtung in der ich probieren kann.
Da ich nach einer kurzen Pausen von 10 Jahren (Ich bitte um Gnade) mal wieder das Proggen anfange, kurze Frage gibt es einen Schnipsel dazu??

Der Link noch mal in voller Länge:
https://www.delphipraxis.net/88218-v...er-klasse.html

wie geht das mit den Pointern und der Stringlist? Da stehe ich im Moment voll auf dem Schlauch

ich danke euch für die Unterstützung.
Grüße Klaus.

[scrat1979]

Wenn du ein aktuelleres Delphi mit Generics-Untersützung hast dann kannst du damit eine ObjectList mit

Delphi-Quellcode:

type TMyList = class(TObjectList<TMeinObjektTyp>)
end;

erstellen. Damit ersparst du dir das ständige „casten“. Die Suche nach „Delphi TObjectList Generics“ sollte dir einige Treffer zeigen. Das Einbinden der entsprechenden units (welche weiß ich auswendig gerade nicht) für die Generics-Unterstützung nicht vergessen.

[Luckie]

Ich darf mal zusammenfassen. Die Objekte liegen in der Liste in einer Reihenfolge vor: A-B-C-... und werden so in der Listbox angezeigt. Jetzt verschiebst du in der Listbox Objekt B vor A. Also haben wir in der Listbox B-A-C-... Im Speicher haben wir aber noch A-B-C-.... Jetzt willst du, dass auch die Objekte im Speicher die selbe Reihenfolge wie in der Listbox haben, dass heißt das Objekt im Speicher muss analog "verschoben" werden. Habe ich das so richtig verstanden?

[Klaus777]

Hallo zusammen,
danke für eure Denkanstöße.
Die Trennung der Daten und Anzeige hatte ich nicht auf dem Schirm und es hat etwas gebraucht das zu verstehen.

Ich werde das mit den Generics aufgreifen und mich in diese Richtung weiter belesen und damit weitermachen.
Danke der Einsicht von Embarcadero gibt es ja die Community-Edition. Aktuelles Delphi ist soweit vorhanden.

Den Wahnsinn, die Daten in der Anzeige mit denen im Speicher zu syncen.... Oh je...

Danke & viele Grüße Klaus

[Redeemer]

Zitat von Klaus777:

Den Wahnsinn, die Daten in der Anzeige mit denen im Speicher zu syncen.... Oh je...

Deshalb ja mein Vorschlag mit den Objekt-Features von TStrings. Dann liegt alles in derselben Liste, nämlich TListBox.Items, und es bleibt für immer zusammen, was zusammen gehört. Anzeige und Daten wären also nicht out-of-sync, außer man macht das gewaltig falsch. Problem: Den Pointer Objects[] muss man selber casten.