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?