DBChart에서는 잘 되었거든요.
근데 QRChart에서는 "access violation" error 나네요.
누가 좀 도와주세요... ㅠㅠ
<DBChart에서 되는 코드>
var
IncSeries : array of TFastLineSeries ;
.......
for i := 0 to Table1.RecordCount-1 do
begin
IncSeries[i] := TFastLineSeries.Create( Self );
IncSeries[i].ParentChart := DBChart2 ;
end;
k := 0;
While not Table4.Eof do
begin
for i := 0 to inc_num do
begin
IncSeries[k].AddXY(Table4.Fields[5].AsFloat,Table4.Fields[1].AsFloat);
Table4.Next;
end;
i := 0;
k := k + 1;
end;
<QRChart에서 안되는 코드>
procedure TFReport2.QuickRep1Preview(Sender: TObject);
var
IncSeries: array of TFastLineSeries;
i,k : integer;
begin
for i := 0 to Table6.RecordCount-1 do
begin
QRChart1.Chart.AddSeries(IncSeries[i]);
IncSeries[i] := TFastLineSeries.Create(Self);
IncSeries[i].ParentChart := QRDBChart1 ;
end;
k := 0;
While not Table4.Eof do
begin
for i := 0 to inc_num+1 do
begin
IncSeries[k].AddXY(Table4.Fields[5].AsFloat,Table4.Fields[1].AsFloat);
Table4.Next;
end;
i := 0;
k := k + 1;
end;
end;
하루 종일 별짓 다해봤어요. 제발 좀 도와주세요.... 빨리