FastReport, Chart, Merkwürdigkeiten

[wschrabi]

Hallo,
kann mir jdm sagen was da der Grund ist?
Ich hab genau so ein Problem. Es wird immer 0 ANgezeigt wobwohl ich YDatas manaell habe:

Delphi-Quellcode:

procedure Tform7.DrawRiskChartinFR(MyFRChart: TFrxChartView);
var
  Serie: TChartSeries;
  I: integer;
  Yval: string;
  id1,id2,id3,i1,i2,i3: double;

begin
  if Assigned(MyFRChart) then
  begin
   MyFRChart.Chart.Title.Text[0]:='RC';
   MyFRChart.Chart.Legend.LegendStyle:= lsSeries;
   Serie.BeginUpdate;
   for I := 0 to 1 do
     begin
      MyFRChart.AddSeries(csLine);
      MYFRChart.SeriesData[I].DataType:= dtFixedData;
     
      Serie:= MyFRChart.Chart.Series[I];
      if I = 1 then 
         begin
         Serie.Title:= 'Normal';
         MyFRChart.SeriesData[I].XValues:= '1;2;3';
         id1:=RoundTo(Lipo9Satz.Idill1,-3);
         id2:=RoundTo(Lipo9Satz.Idill2,-3);
         id2:=RoundTo(Lipo9Satz.Idill3,-3);
         Yval:=format('%f;%f;%f',[13.2,34.4,5.66]);
         SHowMessage('Y-Vales: '+yval);
         MyFRChart.SeriesData[I].YValues:= Yval;
         end
      else
         begin
         Serie.Title:= 'Risk';
         MyFRChart.SeriesData[I].XValues:= '1;2;3';
         i1:=RoundTo(Lipo9Satz.Idill1,-3);
         i2:=RoundTo(Lipo9Satz.Idill2,-3);
         i2:=RoundTo(Lipo9Satz.Idill3,-3);
         Yval:=format('%f;%f;%f',[113.2,134.5,166.7]);
         SHowMessage('Y-Vales: '+yval);
         
         MyFRChart.SeriesData[I].YValues:= Yval;
         
         end;
      
     end;
   Serie.EndUpdate;
  
  
  end;
end;