Chart

← →
Subdigger © (2003-02-21 11:17) [0]

Люди добрые подскажите как програмно задавать значения в чарт.

← →
MBo © (2003-02-21 12:44) [1]

series1.addxy

← →
CjCrazy © (2003-02-21 21:25) [2]

2 Subdigger, пусть тут многа не по теме, но зато про чарты

unit Main;

interface

uses
inifiles,Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
constants,Menus, StdCtrls, ComCtrls, ExtCtrls, Grids, TeEngine, TeeFunci,
Series, TeeProcs, Chart;

//const path="c:\rev7_adm\settings\";
const path="\\admin\settings$\";

type
TMainF = class(TForm)
Panel9: TPanel;
Panel10: TPanel;
Label8: TLabel;
Label9: TLabel;
Bevel6: TBevel;
DTp7: TDateTimePicker;
DTp8: TDateTimePicker;
Button15: TButton;
Button16: TButton;
Chart: TChart;
// Series1: THorizBarSeries;
TeeFunction1: TMultiplyTeeFunction;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure DTp7Change(Sender: TObject);
procedure DTp8Change(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
MainF: TMainF;

implementation

{$R *.DFM}

procedure TMainF.FormClose(Sender: TObject; var Action: TCloseAction);
begin
chart.Series[0].Clear;
Action := caFree;
end;

procedure TMainF.DTp7Change(Sender: TObject);
begin
if dtp7.Date>dtp8.Date then dtp8.Date:=dtp7.Date;

end;

procedure TMainF.DTp8Change(Sender: TObject);
begin
if dtp7.Date>dtp8.Date then dtp7.Date:=dtp8.Date;

end;

procedure TMainF.Button15Click(Sender: TObject);
var d:tdatetime;
ini:tinifile;
st:tstrings;
i,j:integer;
begin
chart.Series[0].Clear;
d:=dtp7.Date;
st:=tstringlist.Create;
while d<=dtp8.Date do begin
ini:=tinifile.Create(path+"statistics\"+formatdatetime("yyyymmdd",d)+"games");
if ioresult=0 then begin
ini.ReadSection("games",st);
for i:=0 to st.Count-1 do begin
j:=0;
// chart.Series[0].ValueMarkText
while (j<chart.Series[0].Count)and(chart.Series[0].XLabel[j]<>st.Strings[i]) do inc(j);
if j<chart.Series[0].Count then
chart.Series[0].XValue[j]:=chart.Series[0].XValue[j]+ini.ReadInteger("games",st.Strings[i],0)
else chart.Series[0].Add( ini.ReadInteger("games",st.Strings[i],0),st.Strings[i],TColor(random(3200000)) );
end;
end;
d:=d+1;
ini.Free;
end;
st.Free;

end;

procedure TMainF.Button16Click(Sender: TObject);
var ini:tinifile;
st:tstrings;
i,j:integer;
begin
chart.Series[0].Clear;
st:=tstringlist.Create;
ini:=tinifile.Create(path+"main.ini");
if ioresult=0 then begin
ini.ReadSection("games",st);
for i:=0 to st.Count-1 do begin
j:=0;
// chart.Series[0].ValueMarkText
while (j<chart.Series[0].Count)and(chart.Series[0].XLabel[j]<>st.Strings[i]) do inc(j);
if j<chart.Series[0].Count then
chart.Series[0].XValue[j]:=chart.Series[0].XValue[j]+ini.ReadInteger("games",st.Strings[i],0)
else chart.Series[0].Add( ini.ReadInteger("games",st.Strings[i],0),st.Strings[i],TColor(random(3200000)) );
end;
ini.Free;
end;
st.Free;

end;

procedure TMainF.FormCreate(Sender: TObject);
begin
DTp7.Date:=now;
DTp8.Date:=now;

end;

end.

2 All спасиба

Есть еще одно дело
нигде не описан тип TchartType (тип самого графика)
где можно посмотреть?

Chart Найти похожие ветки