Objekt kopieren

[CCRDude]

Weil man bei Collections soviel tippen muss (eben auch das Assign), hatte ich mir ja das hier gebastelt

Ein Beispiel, weil ein Assign zu implementieren ist, hat shmia ja in Post #15 stehen (in obigem Link ebenfalls eins). Die "Herausforderung" bei Collections ist da halt immer, daß man, wenn man neue Properties hinzufügt, gerne mal vergisst, auch das Assign zu aktualisieren - dort musst Du halt selber von Hand eine Kopie jeder kopiergewünschten Eigenschaft anlegen (das automatisch machen zu lassen kann imho nicht funktionieren, da es z.B. bei Zeigern auf Objekten je nach Code drumherum darauf ankommen würde, ob man etwa eine TStringList ebenfalls mit Assign auf die neue kopiert, oder nur den Zeiger selber kopiert, wenn er etwa auf ein spezielles externes Objekt zeigt).

Warum alzaimar da jetzt eine zusätzliche "Clone"-Methode hat, kann ich mir nur so halb vorstellen, da sie halt auch nicht irgendwie automatisierter laufen kann (imho), und zudem genau dasselbe erledigen soll, was Assign macht - nur daß der Aufruf (Rückgabewert & Parameter) vertauscht ist.

[alzaimar]

Zitat von CCRDude:

Warum alzaimar da jetzt eine zusätzliche "Clone"-Methode hat, kann ich mir nur so halb vorstellen

Weil ich nicht alles von TPersistent ableite, siehe auch Beitrag #16 und #4.

[Luckie]

Puh, ich steige da nicht mehr durch.

Delphi-Quellcode:

TPageCollection = Class(TObject);
  private
    FInnerList: TList;
    x: Double;
    // ...;
    // ...;
  public 
    procedure Add;
    // ...;
    // ...;
end;

procedure TPageCollection.Add(Item: TImageEnVect);
begin
  FinnerList.Add(Item);
end;

So sieht meine Klasse aus. Und davon brauche ich eine Kopie mitsamt der inneren Liste. Was muss ich jetzt konkret wie und wo implementieren, damit man davon eine Kopie erstellen kann?

[Noinini]

Leider kennen die TImages keine eigene Assign-Methode, von daher müsstest Du auch das Kopieren der Eigenschaften Deiner Images von Hand machen. Am Einfachsten wäre es natürlich, wenn Du anstatt einer TList als innerList eine TImagelist verwendest, die kann das nämlich von alleine.
Wenn Du Dir genau ansehen willst, was Du "von Hand" machen musst, um die TList zu kopieren, dann solltest Du Dir das TImagelist.Assign mal ansehen, das könntest Du dann relativ einfach für Deine Liste übernehmen.

[Udontknow]

Zitat von 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?

Du meinst sicherlich CollectionItem anstelle TMyCollection? Für die Item-Klasse musst du ja ebenso eine Clone-Routine implementieren. Dann castest du einfach auf TMyCollectionItem, da es sich hierbei ja um Instanzen dieser Klasse handelt.

Delphi-Quellcode:

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

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

Cu,
Udontknow

[Luckie]

@Udontknow: Meine Item-Klasse ist vom Typ TList:

Delphi-Quellcode:

TPageCollection = Class(TObject);
  private
    FInnerList: TList;
    x: Double;
    // ...;
    // ...;
  public
    procedure Add;
    // ...;
    // ...;
end;

oder meinst du den Typ der Objekte in der Liste? Die sind vom Typ TImageEnvect (so was wie ein TImage) und kennt die Methode Assign (falls das hilft).

Lösen wir uns mal von dem TImage. Ich habe eben mal schnell eine Demo erstellt:

Delphi-Quellcode:

unit Adressen;

interface

uses
  Classes;

type
  TKontakt = class(TObject)
  private
    FName: String;
    FAlter: Integer;
    function GetAlter: Integer;
    function GetName: String;
    procedure SetAlter(const Value: Integer);
    procedure SetName(const Value: String);
  public
    property Name: String read GetName write SetName;
    property Alter: Integer read GetAlter write SetAlter;
  end;

  TKontaktCollection = class(TObject)
  private
    FInnerList: TList;
    function GetItem(Index: Integer): TKontakt;
    procedure SetItem(Index: Integer; const Value: TKontakt);
  public
    constructor Create;
    destructor Destroy; override;
    procedure Add(Item: TKontakt);
    function Count: Integer;
    property Items[Index: Integer]: TKOntakt read GetItem write SetItem;
  end;

implementation

{ TKontakt }

function TKontakt.GetAlter: Integer;
begin
  Result := FAlter;
end;

function TKontakt.GetName: String;
begin
  Result := FName;
end;

procedure TKontakt.SetAlter(const Value: Integer);
begin
  FAlter := Value;
end;

procedure TKontakt.SetName(const Value: String);
begin
  FName := Value;
end;

{ TCollection }

procedure TKontaktCollection.Add(Item: TKontakt);
begin
  FInnerList.Add(Item);
end;

function TKontaktCollection.Count: Integer;
begin
  Result := FInnerLIst.Count;
end;

constructor TKontaktCollection.Create;
begin
  inherited;
  FInnerList := TLIst.Create;
end;

destructor TKontaktCollection.Destroy;
var
  i                 : Integer;
begin
  if FInnerList.Count > 0 then
  begin
    for i := FInnerList.Count - 1 to 0 do
    begin
      TObject(FInnerList.Items[i]).Free;
    end;
  end;
  inherited;
end;

function TKontaktCollection.GetItem(Index: Integer): TKontakt;
begin
  Result := FInnerList.Items[Index];
end;

procedure TKontaktCollection.SetItem(Index: Integer; const Value: TKontakt);
begin
  FInnerList.Items[Index] := Value;
end;

end.

Wie stelle ich jetzt eine Kopie von TKontaktCollection her mitsamt der inneren List? Das ist das Problem. Den bisherigen Code hab eich leider nicht ganz verstanden, weil es doch irgendwie immer etwas durcheinander ging.

(Im Anhang das gesamte Projekt.)

[Noinini]

Hier die zwei notwendigen Methoden, allerdings ungetestet und ohne, dass ich mir das Projekt angesehen habe:

Delphi-Quellcode:

procedure TKontakt.Assign(Source: TKontakt);
begin
  Name := Source.Name;
  Alter := Source.Alter;
end;

procedure TKontaktCollection.Assign(source: TKontaktcollection);
var
  i: Integer;
  kontakt: TKontakt;
begin
  clear;
  for i := 0 to source.count-1 do
  begin
    kontakt := Add(TKontakt.Create);
    kontakt.Assign(source.Items[i]);
  end;
end;

[Luckie]

Ich glaube ich habs:

Delphi-Quellcode:

procedure TKontakt.Assign(Source: TKontakt);
begin
  Name := Source.Name;
  Alter := Source.Alter;
end;

Und:

Delphi-Quellcode:

procedure TKontaktCollection.Assign(Source: TKontaktCollection);
var
  i: Integer;
  kontakt: TKontakt;
begin
  for i := 0 to source.count-1 do
  begin
    kontakt := TKontakt.Create;
    kontakt.Assign(source.Items[i]);
    Add(kontakt);
  end;
end;

Der Test:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  TempCollection: TKontaktCollection;
  i: Integer;
begin
  TempCollection := TKontaktCollection.Create;
  try
    TempCollection.Assign(Adressen);
    for i := 0 to TempCollection.Count - 1 do
    begin
      TempCollection.Items[i].Name := TempCollection.Items[i].Name + ' ist doof.';
      ListBox2.Items.Add(TempCollection.Items[i].Name);
    end;
  finally
    TempCollection.Free;
  end;
end;

und:

Delphi-Quellcode:

procedure TForm1.UpdateLB1;
var
  i: Integer;
begin
  Listbox1.Clear;
  for i := 0 to Adressen.Count - 1 do
    ListBox1.Items.Add(Adressen.Items[i].Name + ', ' + IntToStr(Adressen.Items[i].Alter));
end;

Die TempCollection wird am Ende der Procedure ja freigegeben. Wären jetzt nur Pointer in der Liste, würde Prozedur UpdateLB1 gar nichts mehr ausgeben - tut sie aber. Ergo wurden die Objekte kopiert und nicht nur die Pointer. Oder sehe ich das falsch?

Im Anhang das ganze Projekt.

[shmia]

Zitat von Luckie:

Ich glaube ich habs:

Delphi-Quellcode:

procedure TKontakt.Assign(Source: TKontakt);
begin
  Name := Source.Name;
  Alter := Source.Alter;
end;

Nicht ganz; schau nochmals in Beitrag #14.

Delphi-Quellcode:

procedure TKontakt.Assign(Source: TPersistent);
begin
  if Source is TKontakt then
  begin
    Name := TKontakt(Source).Name;
    Alter := TKontakt(Source).Alter;
  end
  // weitere (fiktive) Klasse, die zugewiesen werden könnte
  else if Source is TPerson then
  begin
    Name := TPerson(Source).FirstName + ' ' + TPerson(Source).LastName;
    Alter := round((now - TPerson(Source).BirthDate) / 365.0);
  end
  // Wichtig!! wenn mir die Source-Klasse nicht bekannt ist, inherited aufrufen
  else inherited;
end;

[Luckie]

Jupp. Es fehlen zwei Zeilen (Source is TKontakt und inherited), das habe ich mir mal schnell gespart, da eh nichts anderes da ankommen kann.

Aber ich habe das dumpfe Gefühl bei meiner TIMageEnVect-Komponente kopiert Assign nichts, so dass ich alles selber von Hand kopieren muss.