Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Objekt kopieren

   
    by shmia, 30. Mai 2007
  Wenn man sich nicht an die Regeln hält, kann das später Dir (meist trifft's aber Andere) Probleme bereiten.
  Denk an den *Supertrick* der VCL falls Assign nicht fruchtet die AssignTo-Methode aufzurufen.
  Ohne das inherited kann der Trick nicht funktionieren.
  
  Da hat sich der Author der TIMageEnVect-Komponente nicht an die Regeln gehalten!!
• Forum: Object-Pascal / Delphi-Language

  Re: Objekt kopieren

   
    by shmia, 30. Mai 2007
  Nicht ganz; schau nochmals in Beitrag #14.
  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
• Forum: Object-Pascal / Delphi-Language

  Re: Objekt kopieren

   
    by shmia, 25. Mai 2007
  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:
  procedure TVerpackung.Assign(Source: TPersistent);
  begin
  if Source is TVerpackung then
  begin
  FIdVerp := TVerpackung(Source).IdVerp;
  FBezeichnung := TVerpackung(Source).Bezeichnung;