Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Построить график в - Chart

Оля © (2002-12-12 13:00:00)
Помогите, заканчиваю проект почти все готово, вот только графики построить осталось.
Есть компонент Chart1 на вкладке Additional, но как с ним работать не совсем представляю. Неплохо было бы если кто ни будь объяснил на примере.
Есть 6 ячеек Edit, в 3х значения x1, x2, x3 в остальных y1, y2, y3. Вопрос как на основе этих значений построить график в Chart1. А уж по вашему ответу я разберусь, что мне делать в своем проекте (там все конечно посложнее будет). Заранее благодарю всех откликнувшихся.

Р.S. как-то я уже спрашивала о Chart1 и где в инете можно о нем почитать , но увы реального ничего не ответили .

Оля (2002-12-12 16:02:00) [1]
ОК Всем спасибо.

Бурундук (2002-12-12 15:19:00) [2]
У тебя какая версия Дельфей? D4 или меньше?

Попробуй так:
Series1.AddXY(x1, y1, "", Series1.SeriesColor);

Nikolai_S (2002-12-12 15:15:00) [3]
Ну так вообще-то можно и в справке посмотреть. Там нужно после X и Y дать еще два параметра - подпись на точки оси х и цвет столбца/отрезка:

functionAddXY(Const AXValue, AYValue: Double; ConstAXLabel: String; AColor: TColor) : Longint;

Оля (2002-12-12 15:09:00) [4]
А почему на Series1.AddXY(x1, y1); при компиляции выскакивает
[Error] Unit1.pas(48): Not enough actual parameters?

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls, TeeProcs, TeEngine, Chart, Series;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Chart1: TChart;
BitBtn1: TBitBtn;
Series1: TFastLineSeries;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
x1,x2,x3,y1,y2,y3:real;
begin
x1:= StrToFloat(Edit1.Text);
x2:= StrToFloat(Edit2.Text);
x3:= StrToFloat(Edit3.Text);
y1:= StrToFloat(Edit4.Text);
y2:= StrToFloat(Edit5.Text);
y3:= StrToFloat(Edit6.Text);
Series1.Clear;
Series1.AddXY(x1, y1);
Series1.AddXY(x2, y2);
Series1.AddXY(x3, y3);
end;
end.

Бурундук (2002-12-12 14:10:00) [5]
Создаёшь новую серию Series1 (дв. клик на Chart1,
выбираешь наиболее понравившийся стиль).

Далее
// Series1 - компонент, принадлежащий форме
Series1.Clear;
Series1.AddXY(x1, y1);
Series1.AddXY(x2, y2);
Series1.AddXY(x3, y3);

Всё.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »