TChart - 3 Variabeln

[Asura]

Gut, also habe mich nun weiter ran versucht:

Delphi-Quellcode:

  
while not Query.Eof do
    begin

      for I := 0 to Chart.SeriesCount -1 do
        begin

          if Chart.Series[ I ].Name = Query.FieldByName('usr_ID').AsString then
            begin

              with Chart.Series[I] do
                begin
                  AddBubble(Query.FieldByName('usr_ID').AsFloat, Query.FieldByName('bev_ID').AsFloat, Query.FieldByName('Anzahl').AsFloat);
                end;

            end
          else
            begin
              Bubble := TBubbleSeries.Create(Self);
              Bubble.ParentChart := Chart;
              Bubble.AddBubble(Query.FieldByName('usr_ID').AsFloat, Query.FieldByName('bev_ID').AsFloat, Query.FieldByName('Anzahl').AsFloat);;
            end;

        end;

      Query.Next;
    end;

Folgende Probleme, die ich nicht lösen kann:
AddBubble kann nicht ausgeführt werden, da nicht Chart.Series[I] weiß, dass es sich um ein Bubble Serie handelt.
Das zweite Problem ist natürlich, dass bei der If-Else-Abfrage jedes mal wenn der erste Werte nicht stimmt er ja eine neue Serie erstellen würde.
Wie könnte ich das umgehen?

[himitsu]

Zitat:

Zitat von Asura (Beitrag 1390404)

AddBubble kann nicht ausgeführt werden, da nicht Chart.Series[I] weiß, dass es sich um ein Bubble Serie handelt.

ein Cast? :zwinker:
TBubbleSeries(Chart.Series[I])

Und das ELSE muß natürlich nach die Schleife. :zwinker:
das IF trifft nur bei einer der Serien und bei allen Anderen fügt es neu hinzu, egal, ob die gewünschte Serie schon kam / noch kommt.

AddBubble braucht dann also nicht doppelt sein, wenn du erst die Serie suchst, wenn nicht gefunden neu erzeugst und erst danach AddBubble auf das Gefundene/Erzeugte.