TStrings und Assign

[Neutral General]

Hallo,

In TPersistent ist Assign so implementiert:

Delphi-Quellcode:

procedure TPersistent.Assign(Source: TPersistent);
begin
  if Source <> nil then Source.AssignTo(Self) else AssignError(nil);
end;

Ist es also nicht generell so gedacht dass AssignTo von den Nachfahren überschrieben wird?
So kann die Quelle entscheiden wie sie sich dem Zielobjekt zuweist.

TStrings hat aber jetzt direkt Assign überschrieben und ruft inherited Assign quasi nicht mal auf (es sein denn Source wurde nicht von TStrings abgeleitet, aber das kommt wohl sowieso eher selten bis gar nicht vor).

Jetzt stehe ich da mit meiner eigenen Ableitung von TStrings und möchte bestimmen wie eine TStringlist meine Klasse assignen soll und wollte dazu AssignTo überschreiben, aber das wird natürlich jetzt nie aufgerufen und ich hab verloren.

Ist das wirklich so gewollt?
In meinen Augen ist das ein Fehler..

[Uwe Raabe]

Ich vermute mal, es ist by-design. Wenn eine von TPersistent abgeleitete Klasse keine eigene Implementierung von Assign hat, dann und nur dann wird die Source-Instanz über AssignTo mit der Zuweisung beauftragt. Da TStrings und seine Abkömmlingen aber ein eigenes Assign implementieren, ist AssignTo hier aus dem Rennen. Würde TStrings im Assign nach der Zuweisung noch inherited aufrufen, käme ja zusätzlich noch das AssignTo der Source-Instanz zum tragen und nicht alternativ.

Wenn du nun einen eigenen Abkömmling von TStrings schreibst, dann wirkt sich deine Implementierung von AssignTo allenfalls für Zielklassen aus, die nicht von TStrings abgeleitet sind und kein eigenes Assign bereitstellen, was deine Klasse berücksichtigt. Willst du eine spezielle Behandlung bei einer Zuweisung deiner Klasse nach TStringList, die von dem Standardverhalten abweicht, dann ist der bestehende Mechanismus von Assign einfach nicht der richtige Weg. Da wäre dann eine separate Methode á la AssignToStringList in deiner Klasse und ein Aufruf dieser an den entsprechenden Stellen wohl der bessere Weg. Vielleicht kannst du auch die Inheritance von TStrings aufbrechen, dann käme dein AssignTo wieder zum tragen.

[Neutral General]

Ja gut, dass nicht ein implementiertes Assign UND das AssignTo aufgerufen werden (sollen) ist klar.
Ich bin nur davon ausgegangen dass das Überschreiben von AssignTo das Standardverfahren wäre.

Ein AssignToStringlist bringt mir in meine Fall leider nichts weil mein Problem das Assign einer Stringliste im VCL-Code ist, den ich leider nicht grad auf AssignToStringlist umbauen kann

Naja dann muss ich mir irgendwie was schlaues überlegen

[Stevie]

Zitat von Neutral General:

Jetzt stehe ich da mit meiner eigenen Ableitung von TStrings und möchte bestimmen wie eine TStringlist meine Klasse assignen soll und wollte dazu AssignTo überschreiben, aber das wird natürlich jetzt nie aufgerufen und ich hab verloren.

Soll das heißen, deine Ableitung ist nicht kompatibel mit der TStrings.Assign Methode?
Wenn ja, warum? Hört sich ein bisschen wie eine Verletzung des LSP an, sollte es so sein.

[Neutral General]

Das konkrete Problem ist:

Habe meine eigene Items-Klasse für meine Combobox (letztendlich von TStrings abgeleitet) und diese beinhaltet Werte die TStrings oder TStringlist nicht beinhaltet oder kennt.

Beim erstellen der Combobox (CreateWnd, DestroyWnd) wird (aus welchen Gründen auch immer) eine Sicherheitskopie der Items in eine TStringlist (TCustomComboBox.FSaveItems) gespeichert (per Assign) wodurch meine zusätzlichen Infos natürlich nicht mit in diese TStringlist übertragen werden. Später wird diese Sicherung der Items wieder zurückgespielt und dadurch gehen die in meiner Items-Klasse enthaltenen zusätzlichen Informationen verloren.

Da wollte ich mit einem überschriebenen AssignTo in meiner Items-Klasse den TStringlist-Fall abfangen und dafür sorgen dass die Daten mit rüberkommen.

[mkinzler]

Dann wäre es vielleicht besser nicht von TStrings sonder von TList oder TObjectList abzuleiten?

[himitsu]

Wo sind denn deine Zusatzdaten drin?

Wenn am TStrings.Objects, dann brauchst du nur dafür zu sorgen, daß die beiden TStrings-Nachfahren einen Speicherplatz für Objects beinhalten, denn das wird automatisch umkopiert, beim Assign.

Nur haben nicht alle TStrings-Nachfahren sowas. (z.B. das TMemoStrings im TMemo)

[Bjoerk]

TPersistent.Assign bzw. TPersistent.AssignTo machen nichts außer Fehlermeldungen anzuzeigen. Weshalb es diese Implentierung überhaupt gibt hab ich noch nie verstanden? TStrings.Assign ruft TPersistent.Assign auf wenn Source <> TStrings ist. TStrings hat kein AssignTo. Deine Klasse braucht deshalb ein eigenes AssignTo oder mit TStrings.Assign arbeiten (falls möglich)?