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 von Asura:

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

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

Und das ELSE muß natürlich nach die Schleife.
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.