1.화면에서 TChart에 Series 가 전혀 없는 상태에서 Field 의 갯수만큼 TLineSeries를 생성하여
   그리는 Chat 입니다.
   화면의 TChart 에는 정상적으로 그려지던데,
   TQrChart 에는 실제 루틴은 타는데 preview 하면 어떤 Series 도 추가된게 없습니다.
  왜 그런지요? 그리고 해결방법을 어떤건지요?
2.그리고 TLineSeries 를 생성할때 Points를 보이게 할려고 하는데 어떻게 하는건지요?


<!--CodeS-->

procedure TfmQrPortWhanVw2.QuickRepDATABeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
var       t_date : String;
          ix     : Integer;
          tmpSeries : TChartSeries;
          tmpS      : TChartSeriesClass;
          AOwner    : TComponent;
begin
  with fmPortWhanVw do begin
     qlbDate.Caption := '*환율기간 : ' + medDate1.Text + ' ~ ' + medDate2.Text;

     for ix := 0 to TableIO.FieldCount - 4 do begin
         tmpS := TChartSeriesClass(TLineSeries);
         tmpSeries := tmpS.Create(AOwner);
         tmpSeries.ParentChart := Chart1;
         Chart1.AddSeries(tmpSeries);
         tmpSeries.Title := TableIO.Fields[ix+2].DisplayLabel;
     end;
      
     for ix := 0 to TableIO.FieldCount - 4 do Chart1.Series[Ix].Clear;

     TableIO.First;
     while not TableIO.EOF do begin
        t_date := Copy(TableIO.FieldByName('T_DATE').AsString,6,5);
        for ix := 0 to TableIO.FieldCount - 4 do begin
            if TableIO.Fields[ix+2].AsString = '' then
               Chart1.Series[ix].Addxy(ix,0,t_date,clTeeColor )
            else
               Chart1.Series[ix].Addxy(ix,TableIO.Fields[ix+2].AsFloat,t_date,clTeeColor);
        end;
        TableIO.Next;
     end;
  end;
end;
    
<!--CodeE-->