DGL • Thema anzeigen - Inkompatible Typen

Inkompatible Typen

Moderator: DGL-Team

Seite 1 von 1

[ 4 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

sharkman

Betreff des Beitrags: Inkompatible Typen

Verfasst: Di Sep 20, 2011 15:00

DGL Member

Registriert: Fr Dez 11, 2009 08:02
Beiträge: 532
Programmiersprache: pascal (Delphi 7)

Nächstes Problem:

Ich möchte ein Objekt erstellen, und zwar von derselben Klasse, die auch ein anderes Objekt hat (und nicht bekannt ist)
probiert hab ich´s mit

Code:

someobject:= otherobject.ClassType.Create(blablubb)

hat natürlich nicht funktioniert, weil TClass kein Create kennt außer eines ohne Parameter (welches ich aber nicht brauchen kann)
dann hab ich versucht, es über eine dummy-variable zu lösen, der ich das otherobject.ClassType zuweise (mit dem Typ class of TGemeinsameBasisKlasse (welche das nötige Create schon kennt)) Jetzt schreit er mir irgendwas von inkompatiblen Typen rum.

Wie kann ich stattdessen vorgehen, und, wenn man es keiner vernünftigen Variable zuweisen kann, wozu ist das ClassType eigentlich gut? Nur für "a is b.ClassType"?

Nach oben

Schläfer

Betreff des Beitrags: Re: Inkompatible Typen

Verfasst: Di Sep 20, 2011 17:03

DGL Member

Registriert: Fr Okt 03, 2008 13:32
Beiträge: 367

Ich hab' mal ein bischen rumprobiert und vielleicht die Lösung:

Code:

type TClassBase = class
      fv:Integer;
      classnum:Byte;
      constructor Create(v:Integer); virtual;
     end;
 
type TClass1 = class(TClassBase)
      constructor Create(v:Integer); override;
     end;
 
type TClass2 = class(TClassBase)
      constructor Create(v:Integer); override;
     end;
 
[...]
 
constructor TClassBase.Create(v:Integer);
begin
  fv:=v;
  classnum:=0;
end;
 
constructor TClass1.Create(v:Integer);
begin
  fv:=v;
  classnum:=1;
end;
 
constructor TClass2.Create(v:Integer);
begin
  fv:=v;
  classnum:=2;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var a:TObject;
    b:TObject;
begin
  a:=TClass1.Create(1);
  b:=TClassBase(a).Create(2);
 
  Form1.Caption:=Format('a.classnum = %d | b.classnum = %d',[TClassBase(a).classnum,TClassBase(b).classnum]);
end;
 

Nach oben

FrenK

Betreff des Beitrags: Re: Inkompatible Typen

Verfasst: Di Sep 20, 2011 17:49

DGL Member

Registriert: Mi Jan 31, 2007 18:32
Beiträge: 150
Programmiersprache: Pascal

Code:

type TClassBase = class
      fv:Integer;
      classnum:Byte;
      constructor Create(v:Integer); virtual;
     end;
 
type TClass1 = class(TClassBase)
      constructor Create(v:Integer); override;
     end;
 
type TClass2 = class(TClassBase)
      constructor Create(v:Integer); override;
     end;
 
...
a:=TClass1.Create(1);
TBaseClass(a.ClassType).Create(1); // erzeugt hier TClass1
 

wenn das nicht funktioniert dann brauchst du :

Code:

 
type TBaseClassType = class of TBaseClass
...
a:=TClass1.Create(1);
TBaseClassType (a.ClassType).Create(1); // erzeugt hier TClass1
 

bin mir da nichtmehr sicher

Nach oben

sharkman

Betreff des Beitrags: Re: Inkompatible Typen

Verfasst: Mi Sep 21, 2011 11:01

DGL Member

Registriert: Fr Dez 11, 2009 08:02
Beiträge: 532
Programmiersprache: pascal (Delphi 7)

ok, funktioniert. danke.

Nach oben

Seite 1 von 1

[ 4 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.