Komponente zur Laufzeit um Eigenschaft erweitern, Fehler bei Programmende

[DieDolly]

Ich versuche gerade ein TChart während der Laufzeit um eine Eigenschaft zu erweitern.
Das klappt auch und ich kann die Eigenschaft auch beschreiben. Aber beim Programmende gibt es eine wenig aussagekräftige AV. Was mache ich falsch?
SeriesGroup ist ein einfacher Enum.

Delphi-Quellcode:

 TCustomSeriesClass = class(TCustomSeries)
 public
  SeriesGroup: TSeriesGroup;
 end;

procedure CreateSeries(const SeriesType: TCustomSeriesClass; const SeriesGroup: TSeriesGroup; const Name: string; const Color: Integer);
var
 CustomSeries: TCustomSeriesClass;
begin
 CustomSeries := TCustomSeriesClass(TAreaSeries.Create(FormMain.Chart1));

 CustomSeries.Name := Name;
 CustomSeries.SeriesGroup := SeriesGroup;
.......

[DieDolly]

Ich glaube du hast mich falsch verstanden.
Das was du als nicht zu TChart gehörig ansiehst habe ich hinzugefügt.

Zitat:

es ist nichts davon zu erkennen, dass die Klasse FMXTee.Chart.TChart um eine Eigenschaft erweitert wird.

?

Delphi-Quellcode:

TCustomSeriesClass = class(TCustomSeries)
 public
  SeriesGroup: TSeriesGroup;
 end;

Zitat:

Die Methode CreateSeries() erweckt den Anschein, dass sie zu der Klasse TCustomSeriesClass gehören könnte, was eben nicht der Fall ist.

Um sowas kümmer ich mich später. Das ist gerade nicht wichtig.

Es funktioniert und ich kann TCustomSeries um die Eigenschaft SeriesGroup erweitern! Der Code lässt sich kompilieren und ausführen.
Aber beim Programmende bekomme ich eine AV.

[hoika]

Hallo,
sicher, dass die AV wegen Deiner Ableitung kommt?
Clear mal die Series vor dem Programmende.

Zitat:

gut möglich beim Hinzufügen eines Graphen

Nein, es knallt ja beim Programmende ...

[Lemmy]

Zitat von DieDolly:

Ich glaube du hast mich falsch verstanden.
Das was du als nicht zu TChart gehörig ansiehst habe ich hinzugefügt.

Zitat:

es ist nichts davon zu erkennen, dass die Klasse FMXTee.Chart.TChart um eine Eigenschaft erweitert wird.

?

Delphi-Quellcode:

TCustomSeriesClass = class(TCustomSeries)
 public
  SeriesGroup: TSeriesGroup;
 end;

nein, Du hast eine neue Ableitung von TCustomSeries erstellt und dort ein neues "Feld" dazu gemacht. Die anderen von TCustomSeries abgeleiteten KLassen kennen deswegen aber noch lange nicht diese EIgenschaft, eben weil die weiterhin von TCustomSeries abgeleitet sind und nicht von TCustomSeriesClass.

Anschließend machst Du nen Hardcast - und stellst fest, dass das ziemlich lange gut geht. Insofern hast Du eigentlich Pech, dass dir die Anwendung nicht gleich um die Ohren fliegt bei der Zuweisung.

[MyRealName]

Was der Lemmy sagen will ist, dass auch wenn Du diese Klasse definiert hast, TChart die nicht kennt und trotzdem nur eine TAriaSeries erstellt oder so. Aber eben nicht deine neu definierte abgeleitete Klasse. Und dann einen Typecast drauf zu machen, ändert die Klasse nicht, der Speicher für deine zusätzliche Variable "SeriesGroup" wurde ja nicht erzeugt und beim TypeCast dann aber beschrieben. Das heisst, du kritzelst in einem Bereich des Speichers rum, der nicht zur Komponente gehört und das knallt dann irgendwann mal.

[dummzeuch]

Wird denn das neue Feld SeriesGroup auch irgendwo initialisiert? Ich sehe nur Code, der es verwendet.

[Gausi]

Ich selbst habe damit noch nicht gearbeitet, aber wäre das nicht ein Fall für eine Helferklasse bzw. class helper, anstatt eine neue Klasse abzuleiten?

Wenn ich das Konzept der class helper richtig verstanden habe, ist das genau für das da, was du anscheinend erreichen willst ...

[hoika]

Hallo,

Zitat:

initialisiert?

CustomSeries := TCustomSeriesClass(TAreaSeries.Create(FormMain.Chart1));

Oha, jetzt sehe ich da ja den harten Type Cast.
Das geht glaube ich so nicht ...

Müsste es nicht so heißen?

CustomSeries := TCustomSeriesClass.Create(FormMain.Chart1);

[DieDolly]

Zitat von hoika:

Hallo,

Zitat:

initialisiert?

CustomSeries := TCustomSeriesClass(TAreaSeries.Create(FormMain.Chart1));

Oha, jetzt sehe ich da ja den harten Type Cast.
Das geht glaube ich so nicht ...

Müsste es nicht so heißen?

CustomSeries := TCustomSeriesClass.Create(FormMain.Chart1);

Wenn man nur TCustomSeriesClass.Create nimmt stzatt TAreaSeries, dann bekommt man nicht den Chart den man erstellen möchte.

Zitat von Gausi:

Ich selbst habe damit noch nicht gearbeitet, aber wäre das nicht ein Fall für eine Helferklasse bzw. class helper, anstatt eine neue Klasse abzuleiten?

Wenn ich das Konzept der class helper richtig verstanden habe, ist das genau für das da, was du anscheinend erreichen willst ...

Die Series haben viele Properties. Aber eine fehlt mir und genau die möchte ich hinzufügen.

So?

Delphi-Quellcode:

 TCustomSeriesClass = class helper for TCustomSeries
 public
  class var SeriesGroup: TSeriesGroup;
 end;

Und überall dann nur noch die Chart-eigene Klasse TCustomSeries verwenden?

[Gausi]

Class var ist da vermutlich falsch, eher so

Delphi-Quellcode:

TCustomSeriesClass = class helper for TCustomSeries
 public
   SeriesGroup: TSeriesGroup;
 end;

Und ja, falls ich das Konzept richtig verstanden habe, dann erhalten dadurch überall in deinem Projekt alle Objekte vom Typ TCustomSeries die Eigenschaft SeriesGroup.