Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Assign auf Vorfahr-Komponente

    Delphi
    by berens, 16. Jun 2009
  Aahhhhh! oO *Licht aufgeh*
  
  Nagut, wenn man mit zu hohen Erwartungen an Sachen rangeht ist klar, dass man oft enttäuscht wird:
  
  Ich dachte dass alle VCL Komponenten quasi "von Hause aus" mit einem funktionierenden "Assign" ausgeliefert werden. Sind sie aber nicht. Wieder was dazugelernt.
  
  Nimmt man nun eine Komponente, die Assign implementiert hat (z.B. TFont), dann klappt auch mein...
• Forum: Object-Pascal / Delphi-Language

  Re: Assign auf Vorfahr-Komponente

    Delphi
    by berens, 16. Jun 2009
  Dein Beispiel lässt sich zwar starten (und hilft mir auch soweit erstmal mein Problem zu lösen, danke), allerdings verstehe ich nicht, warum inherited nicht funktioniert, siehe dieses Beispiel:
  
  
  TKlasse1 = class(TComponent)
  
  ...
  
  procedure TForm1.Button1Click(Sender: TObject);
  var
  K1 : TKlasse1;
• Forum: Object-Pascal / Delphi-Language

  Re: Assign auf Vorfahr-Komponente

    Delphi
    by berens, 15. Jun 2009
  Das Problem liegt nicht in TMeineKlasse3.Assign, sondern bei TMeineKlasse1.Assign
  
  Beispiel:
  
  procedure TMeineKlasse1.Assign(Source: TPersistent);
  var
  begin
  if Source.inheritsfrom(TComponent) then begin
  inherited; // <-- klappt nicht, weil Source von der Klasse TMeineKlasse 3 ist *
  // inherited Assign(TComponent(Source)); // klappt auch nicht
• Forum: Object-Pascal / Delphi-Language

  Assign auf Vorfahr-Komponente

    Delphi
    by berens, 15. Jun 2009
  Hi. Steh mal wieder auf dem Schlauch.
  
  TComponent
  --> TMeineKlasse1 (TComponent)
  x, y: integer
  --> TMeineKlasse2 (TMeineKlasse1)
  Text: string
  --> TMeineKlasse3 (TMeineKlasse2)
  z: integer