ActiveXのF1bookのデータをグラフ化させようとしているのですが、エラーが出ます。実行は出来るのですが、ボタンを押すとだめです。
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
t,S:array of double;
begin
for i:=1 to 3 do
begin
f1book1.col:=1;
f1book1.row:=i;
S[i]:=f1book1.number;
t[i]:=i;
Series1.addxy(t[i],S[i],'',clred);
end;
end;
よろしくお願いします。
追加です。
SetLength(t,3);
SetLength(S,3);
を入れ忘れていました。
でも、エラーが出てしまいます…
forを「0」からにしたらできました^^
ツイート | ![]() |