Objekt kopieren

[Tormentor32]

Also wenn ich ein Bild habe, das ich irgendwie modifiziere, dann mach ich das so, dass ich einen Buffer habe (TBitmap) wo das Original noch drauf ist. Weiß nicht ob das in dein Programm reinpasst...

[Klaus01]

Zitat von Luckie:

Ich habe es jetzt so gelöst, dass ich sie mit der gleichen Funktion wieder zurückskaliere. Nicht schön, aber geht. ;)

Ist das hin- und her skalieren denn nicht verlustbehaftet?
Beim Runterskalieren gehen Bildinformationen verloren - die
beim Hochskalieren nicht wieder zurückgewonnen werden können.

Grüße
Klaus

[Luke_83]

Hallo probier das doch mal mit Image1.Stretch:=True; aus. vom Typ TImage.
Vorher musst du halt noch die Breite und Höhe des Images festlegen.
Image1.Width=300; Image1.Height=300; Als Beispiel

[Luckie]

Zitat von Klaus01:

Ist das hin- und her skalieren denn nicht verlustbehaftet?

Äh nein. Es ist keine richtige TImage-Komponente sondern, ein klein wenig anderes.

[shmia]

Das Kopieren von Objekten findet über die Methode Assign statt!
Dazu muss das Zielobjekt von TPersistent abgeleitet sein.

Die Assign-Methode hat immer folgenden Aufbau:

Delphi-Quellcode:

procedure TVerpackung.Assign(Source: TPersistent);
begin
   if Source is TVerpackung then
   begin
      FIdVerp        := TVerpackung(Source).IdVerp;
      FBezeichnung   := TVerpackung(Source).Bezeichnung;
      FVLength       := TVerpackung(Source).VLength;
      FVHeight       := TVerpackung(Source).VHeight;
      FVWidth        := TVerpackung(Source).VWidth;
      FTara          := TVerpackung(Source).Tara;
      FPicture.Assign(Source);  // Unterobjekt kopieren
      ...
   end
   else
      // Ganz wichtig:
      // wenn ich die Klasse von "Source" nicht kenne,
      // dann immer inherited aufrufen
      // Könnte sein, dass ein Parentklasse die Zuweisung vornehmen kann
      // falls nicht, hat die VCL noch einen Supertrick in der Hinterhand
      // es wird die Methode AssignTo aufgerufen
      // falls dies auch fehlschlägt, gibt's ein Exception
      inherited; 
end;

Der Copy-Constructor ist der schnelle Ersatz für folgenden Code:

Delphi-Quellcode:

objA := TEinObjekt.Create;
objA.Assign(objB);

Der Copy-Constructor macht dann Sinn, wenn in .Create viele Properties zugewiesen werden,
nur um dann in .Assign überbügelt zu werden.
Ganz allgemein ist aber die Assign-Methode wertvoller, da mit ihr auch Objekte unterschiedlicher Klassen
kopiert werden können.

Wenn ein Objekt UnterObjekte hat, dann gibt es zwei Varianten:
1.) nur Hauptobjekt wird kopiert. Bei den Unterobjekten werden nur Referenzen kopiert (2 Zeiger auf's gleiche Objekt)
2.) "Deep-Copy": auch die Unterobjekte werden sauber über Assign kopiert. Alle Objekte sind nun völlig unabhängig voneinander.

Delphi-Quellcode:

constructor TPageCollection.Create(pc: TPageCollection); 
begin 
  inherited Create; 
  FInnerList := TList.Create; 
  // die TList-Klasse weiss nicht, dass seine Items Objekte sind
  // also wird hier kein "Deep-Copy" ausgeführt
  FInnerList.Assign(pc.FInnerList);

Es wäre nun zu prüfen, ob TObjectList.Assign einen Depp-Copy ausführt.

[alzaimar]

Hi shmia, siehe meinen Beitrag #4 (1. Zeile). Aber Du hast es wunderbar erklärt

[Udontknow]

Zitat von shmia:

Es wäre nun zu prüfen, ob TObjectList.Assign einen Depp-Copy ausführt.

Ich denke, daß kann man verneinen. Eine ObjectList weiss ja nur, daß es sich um Objekte handelt, hat aber keine Ahnung, wie sie diese nun klonen soll. Ansonsten müsste es ja bereits in TObjekt eine als virtuell deklarierte Methode geben, die TObjectList dann ansteuern könnte.

Cu,
Udontknow

[Luckie]

Ich brauche jetzt doch eine Kopie der Objekte in der Collection. Deswegen habe ich alzaimars Clone-Methode versicht zu implementieren:

Zitat von alzaimar:

Delphi-Quellcode:

Function TMyCollection.Clone : TMyCollection;
Var
  i : Cardinal;

Begin
  Result := TMyCollection.Create;
//  <Copy Attributes>
  For i:=0 to Count- 1 do
    Result.Add (Items[i].Clone);
End;

Allerdings sagt er mir in Zeile 9, dass er die Methode Clone nicht kennt. Ist ja auch klar, das ist ja eine Methode von TMyCollection und nicht von Items. Wie geht denn das jetzt weiter? Muss ich die Items selber um die Clone-Methode erweitern? Und wenn ja, wie sieht das aus?

[CCRDude]

Ist Assign (wie zuvor von shmia geschrieben) nicht eine notwendige Funktion für jedes TCollectionItem (was ja imho von TPersist kommt)?
Sprich:

Delphi-Quellcode:

For i := 0 to Pred(Count) 
 do Result.Add.Assign(Items[i]);

Vorausgesetzt Dein Assign dort funktioniert vernünftig natürlich

[Luckie]

So wie ich ihn verstanden habe sollte man seine Methode benutzen können um Objekte vom Typ TObject kopieren zu können.

Was meinst du mit:

Zitat von CCRDude:

Vorausgesetzt Dein Assign dort funktioniert vernünftig natürlich

Müsste ich die auch noch implementieren in deinem Fall? Und wenn ja, wie müsste sie aussehen?