|
Registriert seit: 31. Jul 2003
Ort: Dresden
1.386 Beiträge
Delphi 7 Architect
|
Re: Mal wieder Klassenvererbung
24. Jun 2004, 14:42
Schau die mal "class of" vielleicht hilft dir das weiter!
Delphi-Quellcode:
type
TGeometryClass = class of TGeometry;
TGeometryTyp = (tgKugel, tgQuader);
const
cClass : array [TGeometryTyp] of TGeometryClass = (TKugel, TQuader);
fItem := cClass[ttKugel].Create;
Ich hoffe das hilft.
- ciao neo -
Es gibt niemals dumme Fragen, sondern nur dumme Antworten!
|