Komponente zur Laufzeit um Eigenschaft erweitern, Fehler bei Programmende

[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.

[DieDolly]

Ohne class var funktioniert es nicht.
Aber das ist alles irgendwie noch komisch. Ich erzeuge 3 Series mit 3 unterschiedlichenj SeriesGroup-Typen.

Wenn ich den ordinalen Wert von SeriesGroup der Series abfrage, kommt immer 3 raus (das Enum ist 3 groß)
ShowMessage(Ord(TCustomSeries(Chart1.Series[0]).SeriesGroup).ToString); Egal ob Series 0, 1 oder 2. Ord(SeriesGroup) ist immer 3, obwohl ich jeder Series ein anderes Enum zuweise.

Delphi-Quellcode:

procedure CreateSeries(const SeriesType: TCustomSeries; const SeriesGroup: TSeriesGroup; const Name: string; const Color: Integer);
var
 CustomSeries: TCustomSeries;
begin
 if Assigned(FormMain.Chart1.FindComponent(Name)) then
  Exit;

 if SeriesType = TCustomSeries(TAreaSeries) then
  CustomSeries := TCustomSeries(TAreaSeries.Create(FormMain.Chart1))
 else if SeriesType = TCustomSeries(TLineSeries) then
  CustomSeries := TCustomSeries(TLineSeries.Create(FormMain.Chart1))
 else if SeriesType = TCustomSeries(TBarSeries) then
  CustomSeries := TCustomSeries(TBarSeries.Create(FormMain.Chart1))
 else
  CustomSeries := nil;

 if CustomSeries = nil then
  Exit;

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

Hier habe ich es mal mit einer ziemlich bösen Lösung versucht. Ausnutzung des Tag-Properties

Delphi-Quellcode:

TCustomSeriesClass = class helper for TCustomSeries
 public
  function GetSeriesGroup: TSeriesGroup;
  procedure SetSeriesGroup(const SeriesGroup: TSeriesGroup);
 end;

implementation

{TCustomSeriesClass}

function TCustomSeriesClass.GetSeriesGroup: TSeriesGroup;
begin
 Result := TSeriesGroup(Self.Tag);
end;

procedure TCustomSeriesClass.SetSeriesGroup(const SeriesGroup: TSeriesGroup);
begin
 Self.Tag := Ord(SeriesGroup);
end;

// Setzen
CustomSeries.SetSeriesGroup(SeriesGroup);
// Holen
SeriesGroup := TCustomSeries(Chart1.Series[0]).GetSeriesGroup);

[Gausi]

Ok, habe grade gelernt, dass Class helper keine neuen Felder hinzufügen können, sondern nur Methoden ... dann fällt das natürlich raus. https://www.delphipraxis.net/172414-class-helper.html

class var ist ja im Grunde nur eine globale Variable, die aber nur innerhalb der Klasse sichtbar ist. Wenn du mehrere Instanzen hast, und dieser Class Var etwas zuweist, dann gilt diese Zuweisung auch für alle anderen Instanzen dieser Klasse.

Dann fällt mir nur noch ein, eine Ableitung von TChart zu erstellen, wodrin du das dann verwenden kannst. Oder halt mit Tag rumwerkeln ...

[DieDolly]

Ein property sollte man eigentlich nicht missbrauchen. Aber in diesem Fall werde ich es sonst eh nicht nutzen.

Funktioniert jetzt

[Neutral General]

Ich versteh nicht was das Problem ist einfach eine Ableitung von TAreaSeries zu machen?
Das ist sowohl die einfachste als auch sauberste Lösung.