[Delphi] Komponent TChart

0

Gdzie można znalezć opis tego komponentu. Nie bardzo wiem jak z niego korzystać.
--Pamiętaj - nie siedz za dużo przed komputerem.

0

Tu masz kawałek mojego kodu :

  dbf1.First;
  while not dbf1.Eof do
  begin
  if dbf1.Fields.Fields[dbf1.FieldDefs.IndexOf('OPL_ZWROT')].Value<>'0' then
  x:=x+1;
  y:=(x/z)*100;
  dbf1.Next;
  end;
  dbf1.PhysicalRecNo:=0;
  ds2.Enabled:=true;
  ds2.AutoEdit:=true;
  dbf2.Append;
  dbf2.ReadOnly:=false;
  dbf2.Active:=true;
    pd.Min:=0;
  pd.Max:=kurierzy.Count-1;
  pd.Position:=i;
dbf2.FieldByName('Kurier').AsString:=kurierzy[i];
dbf2.FieldByName('Nadania(szt)').AsString:=floattostr(z);
dbf2.FieldByName('ROD(szt)').AsString:=floattostr(x);
dbf2.FieldByName('ROD(%)').AsFloat:=roundto(y,-2);
dbf2.Post;
  end;
finally;
x:=10;
dbf2.First;
while not dbf2.Eof do
begin
chart4.Series[0].AddXY(x,dbf2.Fields.Fields[1].Value,dbf2.Fields.Fields[0].Value,clTeeColor);
chart4.Series[1].AddXY(x,strtofloat(dbf2.Fields.Fields[2].Value),dbf2.Fields.Fields[0].Value,clTeeColor);
chart4.Series[2].AddXY(x,strtofloat(dbf2.Fields.Fields[3].Value),dbf2.Fields.Fields[0].Value,clTeeColor);
x:=x+10;
dbf2.Next;
end;
dbf2.PhysicalRecNo:=0;
  end;
</image>

1 użytkowników online, w tym zalogowanych: 0, gości: 1