AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

class reference als Parameter übergeben

Ein Thema von Tobinator · begonnen am 4. Sep 2011 · letzter Beitrag vom 4. Sep 2011
Antwort Antwort
Tobinator

Registriert seit: 18. Mai 2008
Ort: Cottbus
53 Beiträge
 
#1

class reference als Parameter übergeben

  Alt 4. Sep 2011, 15:57
Hi,

wie kann ich als Parameter einer Procedure eine Class Reference übergeben?

Konkret:
ich habe eine Klasse (TMyClassA) von der ich einige Nachfahren (TMyClassB, TMyClassC) ableite. Diese sollen dann in einer Liste gespeichert werden (TMyClassList). Diese Liste kann TMyClassA Objekte (und damit auch deren Nachfahren) speichern.
Nun soll die Liste eine Funktion haben, mit der sie selbst Objekte erzeugt, sie mit Daten aus einer Datenbank füllt und dann speichert. Dafür muss TMyClassList ja irgendwann tmp:=TMyClassB.Create; oder tmp:=TMyClassC.Create; aufrufen.

Jetzt meine Frage: wie kann ich TMyClassB oder TMyClassC als Parameter übergeben, damit die Liste nun genau weis, was sie erzeugen soll?

Ich hab schon gesucht, bin aber nicht so recht füngig geworden.

PS: wenn ich eine Instanz übergebe und dann z.B. tmp:=AObj.Create aufrufe, dann haben alle Elemente der Liste die gleichen werte. Es ist also sozusagen alles die gleiche Instanz.

Danke schonmal,

Tobi.
Tobias
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
9.847 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: class reference als Parameter übergeben

  Alt 4. Sep 2011, 16:02
Deklariere einen Klassentyp:

TMyClassAClass = class of TMyClassA;

und verwende diese als Typ des Parameters.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
USchuster

Registriert seit: 12. Sep 2010
Ort: L.E.
120 Beiträge
 
Delphi XE3 Professional
 
#3

AW: class reference als Parameter übergeben

  Alt 4. Sep 2011, 16:07
Hatte gerade das getippt und das geht als Ergänzung zu Uwe durch...

Delphi-Quellcode:
program Project22;

{$APPTYPE CONSOLE}

type
  TClassA = class(TObject);

  TClassAClass = class of TClassA;

  TClassB = class(TClassA);

  TClassC = class(TClassA);

procedure CreateClassA(AClassType: TClassAClass);
var
  Instance: TClassA;
begin
  Instance := AClassType.Create;
  try
    WriteLn('ClassName: ', Instance.ClassName);
  finally
    Instance.Free;
  end;
end;

begin
  CreateClassA(TClassB);
  CreateClassA(TClassC);
  ReadLn;
end.
Was den folgenden Output erzeugt:
Code:
ClassName: TClassB
ClassName: TClassC
  Mit Zitat antworten Zitat
Tobinator

Registriert seit: 18. Mai 2008
Ort: Cottbus
53 Beiträge
 
#4

AW: class reference als Parameter übergeben

  Alt 4. Sep 2011, 16:20
Ok, super, funktioniert

Danke und viele Grüße.


EDIT:
Sry, doch noch nicht gelöst:
Es wird immernoch der Constructor von TMyClassA aufgerufen.
Wie kann ich das ändern?
Tobias

Geändert von Tobinator ( 4. Sep 2011 um 16:41 Uhr)
  Mit Zitat antworten Zitat
FredlFesl

Registriert seit: 19. Apr 2011
293 Beiträge
 
Delphi 2009 Enterprise
 
#5

AW: class reference als Parameter übergeben

  Alt 4. Sep 2011, 16:56
virtual Constructor
Das Bild hängt schief.
  Mit Zitat antworten Zitat
Tobinator

Registriert seit: 18. Mai 2008
Ort: Cottbus
53 Beiträge
 
#6

AW: class reference als Parameter übergeben

  Alt 4. Sep 2011, 17:01
genau das hab ich gesucht, danke
Tobias
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:12 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf