Objekt Typ feststellen und gleichen Typ neu erstellen?

[moelski]

Moin !

Nachdem mein RTTI nun funktioniert habe ich noch folgendes Problem:

Angenommen ich habe die Serie (TFastLineSeries) und ich möchte ein Objekt vom selben Typ erstellen. Dann würde man eine Zeile nutzen ala

Delphi-Quellcode:

var series1: TChartSeries; 
begin
  series1 := TFastLineSeries.Create(nil);

Wie kann ich das universell hinkriegen?
Also Typ bestimmen und dann mit dem ermittelten Typen die Serie erstellen?

Die Variable series1 passt jedenfalls für alle Typen:

Zitat:

TChartSeries is the ancestor abstract class of every chart series type.

[guinnes]

Sollte tun :
  lSerie := TChartSeries(Instanz.ClassType).Create(Self);

[moelski]

Moin !

Delphi-Quellcode:

var series1: TChartSeries; 
begin
  series1 := TChartSeries(Chart1[0].ClassType).Create(Self);
  Chart2.AddSeries(series1);

Chart1 = Qullchart ...

Das führt leider zu einer Exception:
Erste Gelegenheit für Exception bei $7C812AFB. Exception-Klasse EAccessViolation mit Meldung 'Zugriffsverletzung bei Adresse 8D208964. Lesen von Adresse 8D208964'.

[guinnes]

Du hast leider recht, ich such weiter

[Hawkeye219]

Hallo,

vielleicht kann man das Problem mit Hilfe eines Streams lösen: klick

@guinnes
ClassType liefert eine Klassenreferenz (class of TObject), keine Instanz (TObject). Der Typecast kann also so nicht funktionieren.

Gruß Hawkeye

[mirage228]

Vielleicht gehts so?

Delphi-Quellcode:

type
  TChartClass = class of TChartSeries
var 
  series1: TChartSeries; 
begin 
  series1 := TChartClass(Chart1[0].ClassType).Create(Self); 
  Chart2.AddSeries(series1);

Viele Grüße

[chaosben]

So gehts bei mir:

Delphi-Quellcode:

var
  ser2 : TChartSeries;
begin
  ser2 := TChartSeriesClass(Chart1.SeriesList[0].ClassType).Create(Chart1);
  Chart1.AddSeries(ser2);
end;

[guinnes]

Zitat von Hawkeye219:

@guinnes
ClassType liefert eine Klassenreferenz (class of TObject), keine Instanz (TObject). Der Typecast kann also so nicht funktionieren.

Stimmt, der Cast war falsch