График функции для Delphi
Я до этого не сталкивался с Delphi, но прочитав некоторые источники немного понял как работать с формой. У меня проблема с постройкой графика ArcCos. Я не могу понять почему компилятор ругаеться из за названия
function f1(a:real):real;
begin
result:= ArcCos(a);
end;
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var x,a,b,h:real;
i,N:integer;
begin
CheckListBox1.Checked[0] := true;
Series1.Clear;
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
N:=StrToInt(Edit3.Text);
h:=(b-a)/N;
for i:=0 to N do begin
x:=a+h*i;
Series1.AddXY(x,f1(x),'',clRed);
end;
end;
procedure TForm1.CheckListBox1Click(Sender: TObject);
begin
begin
if CheckListBox1.Checked[0] then Series1.Active := true
else Series1.Active := false;
end;
end;
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
begin
case RadioGroup1.ItemIndex of 0:Chart1.View3D := false;
1:Chart1.View3D := true;
end;
end;
end;
В момент компиляции выходит ошибка что нет такого ArcCos, нет Series1( Я эго тоже искал в параметрах Tchart, но не нашёл), и нет Viev3D. Если есть возможность буду рад видеть сразу исправленый код
Источник: Stack Overflow на русском