Forum: Algorithmen, Datenstrukturen und Klassendesign
by DieDolly,
4. Okt 2019
Was mit der Lösung dann aber nicht mehr funktioniert ist TCustomSeries(Series).GetSeriesGroup;. Oder überhaupt an SeriesGroup ran zu kommen ohne den Typ des Series zu wissen.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by DieDolly,
4. Okt 2019
Bin für Vorschläge immer offen. Wenn du weißt wie man das hier einbaut, immer her damit
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
Forum: Algorithmen, Datenstrukturen und Klassendesign
by DieDolly,
4. Okt 2019
Ein property sollte man eigentlich nicht missbrauchen. Aber in diesem Fall werde ich es sonst eh nicht nutzen.
Funktioniert jetzt :thumb:
Forum: Algorithmen, Datenstrukturen und Klassendesign
by DieDolly,
4. Okt 2019
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).SeriesGroup).ToString);
Egal ob Series 0, 1 oder 2. Ord(SeriesGroup) ist immer 3, obwohl ich...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by DieDolly,
4. Okt 2019
Wenn man nur TCustomSeriesClass.Create nimmt stzatt TAreaSeries, dann bekommt man nicht den Chart den man erstellen möchte.
Die Series haben viele Properties. Aber eine fehlt mir und genau die möchte ich hinzufügen.
So?
TCustomSeriesClass = class helper for TCustomSeries
public
class var SeriesGroup: TSeriesGroup;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by DieDolly,
3. Okt 2019
Ich glaube du hast mich falsch verstanden.
Das was du als nicht zu TChart gehörig ansiehst habe ich hinzugefügt.
?
TCustomSeriesClass = class(TCustomSeries)
public
SeriesGroup: TSeriesGroup;
end;