Witam Mam problem. mam takie wzory
i mam uzyskać takie wykresy
wszystko musze rzucić w tchart i leże nie mogę uzyskać takich wykresów albo podobnych. nie bardzo umiem programować a musze to zrobić w Delphi
mam coś takiego :
var s:TLineSeries;
K,x:integer;
begin
s:=TLineSeries.Create(Self);
s.ParentChart:=Chart1;
K:=1000;
for x:=1 to 10 do
begin
K:=K+100;
s.Add(K/x);
end;
druga rzecz to ze te wykresy mają być płynne czyli powiedzmy zmieniam wartość na scrollbar i zmienia sie wartość K .
powiedzmy że mam takis sposób:
procedure TForm1.ScrollBar1Change(Sender: TObject);
var s:TLineSeries;
n,i:integer;
begin
n:=0;
s:=Chart1.Series[0] as TLineSeries;
s.Clear;
for i:=1 to 100 do
s.Add( odpowiedni wzór );
end;
albo
procedure TForm1.ScrollBar2Change(Sender: TObject);
var s:TLineSeries;
n,i:integer;
d:double;
begin
n:=1;
s:=Chart1.Series[1] as TLineSeries;
for i:=1 to 100 do
begin
d:= odpowiedni wzór -ScrollBar2.Position-n ;
s.YValue[i-1]:=d
end;
end;
Pomocy !