AW: Anzeigen wenn sich in TObjectList ein Eintrag geändert hat
Liste der Anhänge anzeigen (Anzahl: 1)
Gestern war ich ja mal richtig optimistisch, dass ich da bald zu einer Lösung kommme, aber der Optimismus schwindet.
Vielleicht liegt es ja an Delphi XE Das Positive: Mit dem neuen Konstrukt funktioniert es zunächst mal einwandfrei
Dann aber die Fehler 1. Sobald ich das Programm Schließe, kommt weiterhin der EAccessViolation. Ohne TBaseObjectList<T>.Destructor gleich beim lNamenListFree, mit Destructor nach dem OnClose 2. Das Abfangen, ob lNamen Mitglied einer Liste, funktioniert nicht. Auch wenn ich FParentProject explizit auf NIL setze, geht er in den Message-Block
Delphi-Quellcode:
3. Ganz seltsam wird es dann in folgenden Blöcken
constructor TBase.Create;
begin FParentObject := nil; end; procedure TBase.SetChanged(const Value: Boolean); var msg: TDispatchMessage; begin if FChanged <> Value then begin FChanged := Value; if Value and (FParentObject <> nil) then // Geht in den Block auch wenn FParentObject = NIL begin msg.MsgID := cNotifyChanged; FParentObject.Dispatch(msg); end; end; end;
Delphi-Quellcode:
procedure TForm15.btCreateListClick(Sender: TObject);
// ***************************************************************************************************************************************** // Simuliert Erstellung neuer Einträge var i: Integer; lNamen: TNamen; begin if (lNamenList = nil) then lNamenList := TNamenList.Create; for i := 0 to 5 do begin lNamen.Create; lNamenList.Add(lNamen); lNamen.ParentObject := lNamenList; lNamen.Namen := Format('Name%d', [i]); lNamen.Changed := False; end; lNamenList.Changed := False; laChanged.Caption := Format('lNamenList Count = %d, Changed = %d', [lNamenList.Count, Integer(lNamenList.Changed)]); end; procedure TForm15.btNameOnlyClick(Sender: TObject); // ***************************************************************************************************************************************** // Simuliert StandAlone-Klasse, d.h. nicht in einer Liste var lNamen: TNamen; begin lNamen.Create; try lNamen.Namen := 'NameOnly'; finally lNamen.Free; end; end; procedure TForm15.btNewNameClick(Sender: TObject); // ***************************************************************************************************************************************** // Simuliert Hinzufügen eines Namens var lNamen: TNamen; begin lNamen.Create; lNamenList.Add(lNamen); lNamen.ParentObject := lNamenList; lNamen.Namen := Format('Name%d', [lNamenList.Count + 1]); laChanged.Caption := Format('lNamenList Count = %d, Changed = %d', [lNamenList.Count, Integer(lNamenList.Changed)]); end;
|
AW: Anzeigen wenn sich in TObjectList ein Eintrag geändert hat
Wie lange programmierst du nun schon in Delphi und dann kommt immer noch sowas dabei heraus :shock:
Delphi-Quellcode:
Es heißt
var
lNamen: TNamen; begin lNamen.Create; try lNamen.Namen := 'NameOnly'; finally lNamen.Free; end; end;
Delphi-Quellcode:
!!!!
lNamen := TNamen.Create
|
AW: Anzeigen wenn sich in TObjectList ein Eintrag geändert hat
Oh Shit. Natürlich heißt es
Delphi-Quellcode:
.
lNamen:= TNamen.Create;
Ein kompletter Leichtsinnsfehler. Wunderlich, dass es in der For Schleife trotzdem funktioniert. Und danach per Copy&Paste weiterverbreitet. Und schon funktioniert alles wie gewünscht. Vielen Dank |
AW: Anzeigen wenn sich in TObjectList ein Eintrag geändert hat
Also zuerst noch mal vielen Dank. Damit kann ich die bestehende Klassenstruktur demnächst mal um einiges vereinfachen.
An einer Stelle hänge ich aber noch: Wie kann ich erkennen dass das ParentObject meine TBaseObjectList ist? In meinem Konstrukt kann ParentObject die TBaseObjectList sein. Es könnte aber auch eine von TBase abgeleitete Klasse sein, eine unabhängige Klasse oder NIL Kein Problem mit NIL und den "normalen" Klassen, aber die Typprüfung nach der Liste klappt nicht. Folgendes läuft zwar, aber mir wäre es lieber, ich würde die Message wirklich nur an meine TBaseObjectList schicken
Delphi-Quellcode:
Das mit dem Dispatch war übrigens ein super Hinweis dessen Verwendung ich bisher gar nicht kannte.
procedure TBase.SetChanged(const Value: Boolean);
var msg: TDispatchMessage; begin if FChanged <> Value then begin FChanged := Value; if Value then begin if (FParentObject is TBase) then TBase(FParentObject).Changed := Value // else if (FParentObject is TObjectList<TBase>) then // funktioniert nicht, d.h. geht auch bei TObjectList nicht in den Block else if (FParentObject <> nil) then begin msg.MsgID := cNotifyChanged; FParentObject.Dispatch(msg); end; end; end; end; |
AW: Anzeigen wenn sich in TObjectList ein Eintrag geändert hat
Zitat:
Der Grund für diesen Ansatz war ja gerade der, dass es keine brauchbare Möglichkeit gibt, zu prüfen ob ParentObject ein generische TBaseObjectList<T> ist oder nicht. Das war doch das eigentliche Problem in dem Eingangspost. |
AW: Anzeigen wenn sich in TObjectList ein Eintrag geändert hat
Alles klar.
Mein Hauptproblem war zuerst mal überhaupt eine BaseObjectList zu erzeugen die die Standardproperties enthält. Ich war mir nicht sicher, ob das Senden der Message an alle nicht noch irgenwelche Zusatzlasten erzeugt In dem Fall ist mein Problem vollumfänglich gelöst. Für mich eine sehr lehrreiche Lektion. Vielen Dank für deine Geduld. Du bist einfach Spitze. |
AW: Anzeigen wenn sich in TObjectList ein Eintrag geändert hat
Ich schmeiße hier mal eine andere Möglichkeit in den Raum.
Wenn ich programmiere, dann versuche ich nach SOLID zu programmieren. Daher versuche ich meine Geschäftsobjekte nicht für andere Dinge zu erweitern. "single responsibility principle" Die Änderungserkennung ist für mich ein andere Geschäftsvorgang, weil dieses wird ggf. auch nicht in überall benötigt. Meine Änderungserkennung ist mit den RTTI und Attributen umgesetzt: https://youtu.be/pvi7-c6tGMo Die Attribute müsste man in deinem Fall nicht einmal benutzen. Alternativ zu meiner Umsetzung, werfe ich auch das Pattern UnitOfWork in den Raum. Den Setter zu nutzen, halte ich allerdings für eine gute Lösung. Man könnte alternativ einfach über einen BUS und ein Ereignis, die Änderung "global" zur Verfügung stellen. Ha! - Video Idee - ich wollte sowieso mal den Delphi-BUS zeigen. Die "Liste", welche du haben möchtest, hab ich auch umgesetzt. Es hat mir einfach zu stark in den Fingern gejuckt. Das Video muss ich allerdings noch schneiden. Der Teil hatte kein Platz mehr in dem ersten, weil ich versuche zwischen 10-15 Minuten zu bleiben. Ich denke das Video lade ich bis nächsten Montag in den Kanal. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:41 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz