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

← →
Оля (2002-12-12 13:00) [0]

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

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

← →
Бурундук (2002-12-12 14:10) [1]

Создаёшь новую серию Series1 (дв. клик на Chart1,
выбираешь наиболее понравившийся стиль).

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

Всё.

← →
Оля (2002-12-12 15:09) [2]

А почему на 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.

← →
Nikolai_S © (2002-12-12 15:15) [3]

Ну так вообще-то можно и в справке посмотреть. Там нужно после X и Y дать еще два параметра - подпись на точки оси х и цвет столбца/отрезка:

function AddXY(Const AXValue, AYValue: Double; Const AXLabel: String; AColor: TColor) : Longint;

← →
Бурундук (2002-12-12 15:19) [4]

У тебя какая версия Дельфей? D4 или меньше?

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

← →
Оля (2002-12-12 16:02) [5]

ОК Всем спасибо.

Построить график в - Chart Найти похожие ветки