차트 fx는 처음인데 (사실 델파이한지도 오래되지 않음 ㅠㅠ)

질문을 너무 자주 올려서 죄송하고요 전임자가 짜놓은 소스인데.

자꾸 실행시에 에러가 나네요? 액티브 x쪽 dll이 문제인건지 소스가 문제인건지.

한번 봐주세요



procedure TfRtuAIGraph.pViewGraph;

var

I : Integer;

begin

I := 0;

with Query do begin

Close;

Sql.Clear;

Sql.Add('Select * from rtu_ai_history');

Open;

First;

Chart1.OpenDataEx(COD_VALUES, 1, RecordCount);

while not EOF do begin

Chart1.ThisSerie := 0;

Chart1.Value[I] := FieldByName('Cur_Value').AsInteger;

===================요밑줄에서 에러인데요 제가볼땐 문제없거든요 ㅠㅠ

Chart1.Legend[I] := Copy(FieldByName('Event_Id').AsString, 1, 4) + '-' +

Copy(FieldByName('Event_Id').AsString, 5, 2) + '-' +

Copy(FieldByName('Event_Id').AsString, 7, 2) + ' ' +

Copy(FieldByName('Event_Id').AsString, 9, 2) + ':' +

Copy(FieldByName('Event_Id').AsString, 11, 2) + ':' +

Copy(FieldByName('Event_Id').AsString, 13, 2);



Next;

Inc(I);

end;

Close;

Chart1.SerLeg[0] := 'RTU4000-00 PORT 3';

Chart1.CloseData(COD_VALUES);

end;

end;