Objekt kopieren

[Lhid]

Wie kann ich per Code, wenn ich ein objekt hab das kopieren, am besten beliebig oft...


Lhid

[Dax]

Wenn dein Objekt von TPersistent abgeleitet ist, kannst du einfach ein neues Objekt dieser Klasse erstellen und die Daten mit Assign kopieren.

[Lhid]

wenn ich dumm fragen darf, woran sieht man das ein obbjekt von TPersistent abgeleitet ist?



Lhid

[SirThornberry]

entweder durch die Hilfe (dort ist die Hirarchy ersichtlich) oder du prüfst es per quelltext

Delphi-Quellcode:

var LObj: TButton;
begin
  if LObj is TPersistent then
    showmessage('Ist davon abgeleitet');
end;

[Lhid]

thx

Zitat:

Zitat von Dax

Wenn dein Objekt von TPersistent abgeleitet ist, kannst du einfach ein neues Objekt dieser Klasse erstellen und die Daten mit Assign kopieren.

ja ne ich meinte jetzt aber per quellcode ein neues objekt, das von TPersistent abgeleitet ist zu erstellen.



Lhid

[Shaman]

Hoi

Meinst Du das?

Delphi-Quellcode:

NewButton:= TButton.Create(Self)

Du musst aufpassen, Assign funktioniert nicht bei allen Nachfahren von TPersistent. Aber Du kannst dir eine Prozedur schreiben, welche die relevanten Eigenschaften kopiert.

Gruss
Shaman

[Lhid]

Jep so ungefähr mein ich das...

Code:

NewButton:=

welche variable muss das haben oder wie mach ichs das es passt?

Lhid

[rwachtel]

Zitat:

Zitat von Lhid

Jep so ungefähr mein ich das...

Code:

NewButton:=

welche variable muss das haben oder wie mach ichs das es passt?

:?:

Meinst Du, welchen Typ die Variable haben muss?

Delphi-Quellcode:

var
  NewButton: TButton;
begin
  NewButton := TButton.Create(Self);
end;

[Shaman]

Delphi-Quellcode:

var
  NewButton: TButton;

Einfach vom selben Typ wie das Objekt, dass Du kopieren willst...
Aber eben, bei Buttons z.B. geht Assign schon nicht.

Gruss
Shaman

[Lhid]

k. Ich versuch mal assign hinzubekommen *g*


Lhid

[Lhid]

Also jetzt siehts so aus:

Code:

neuer.Assign(alter);

jedoch wird der alte dann unsichtbar und der andere hat auch nicht die gleichen eigenschaften...


Lhid

[Lhid]

irgendwie müsste ich das neue Objekt noch von dem alten Objekt loslösen, hat dafür jemand ne idee? mit xyobjectxy.free; klappts nicht *g*



Lhid

[Shaman]

Hoi

Kannst Du mal ein ein wenig mehr Code posten? Sofern es funktioniert, arbeitet Assign schon richtig und es muss nichts losgelöst werden.

Gruss
Shaman

[Lhid]

sieht ungefähr so aus:

Delphi-Quellcode:

Tbutton2:=Tbutton2.Create(Self);
Tbutton2.Assign(tbutton1);

Lhid

[Binärbaum]

Wenn schon, dann müsste der Code so lauten:

Delphi-Quellcode:

Button2:=TButton.Create(Self);
Button2.Assign(Button1);

Oder nicht?

MfG
Binärbaum

[Lhid]

Jo klar, aber das löst trotzdem nicht mein prob...



Lhid

[maximov]

Möglicherweise hilft es, wenn du dein problem ein biischen genauer beschreibst oder mehr code zeigst, denn zum kopieren der objekte benötigt man eigentlich nix weiter. Was dann das korrekte einfügen in den komponentenbaum angeht, so ist möglicherweise noch mehr nötig (owner und parent setzen etc.).

Man kann das klonen auch automatisch gestalten. Voraussetzung ist natürlich eine korrekte implementierung von AssignTo:

Delphi-Quellcode:

function ClonePersistent(const source:TPersitent):TPersisten;
begin
  result := source.classType.create;
  result.assign(source); 
end;

Dann gäb es noch die möglichkeit über RTTI zu klonen, wobei nur published properties kopiert würden und somit ein eigenhängies definieren, jeder einzelnen kopieraktion, gesparrt wird.

[Lhid]

Das ist ein Button der hin und her springt, und dann kopiert wird, allerdings klappt das loslössen vom alten Button nicht, also wenn ich sag button1.visible:= false, button2.visible:=true dann sind beide unsichtbar...


Lhid

[maximov]

Zitat:

Zitat von Lhid

Das ist ein Button der hin und her springt, und dann kopiert wird, allerdings klappt das loslössen vom alten Button nicht, also wenn ich sag button1.visible:= false, button2.visible:=true dann sind beide unsichtbar...


Lhid

du sprichst in Rätseln! Woher sollen wir wissen woran es leigt, wenn du keine genauen information preisgibst :wink: