Скачать: CL | DM;

График   Найти похожие ветки 

← →
Holod   (2006-04-23 08:54) [0]

Всем привет! У меня такая проблема - пишу следующий код:
procedure TForm1.Button2Click(Sender: TObject);
begin
for i := 1 to StringGrid1.RowCount-1 do
begin
 q := StrToFloat(StringGrid1.Cells[1,i]);
 w := StrToFloat(StringGrid1.Cells[3,i]);
Form1.Series1.AddXY(w,q,FloatToStr(q),clRed);

 end;
end;
График не строится. Что-то, наверное, накосячил. Подскажите, пожалуйста, в чем дело!

---

← →
Мефисто   (2006-04-23 13:40) [1]

Наверно накосячил... А кто такой  Series1 ?

---

← →
Holod   (2006-04-23 13:47) [2]

Тяжелый случай...Народ, посмотрите, пожалуйста.

---

← →
Holod   (2006-04-23 15:03) [3]

Люююди! ну неужели никто не знает! Вам один раз глянуть, а я уже запарился ошибку искать!! Заранее спасибо.

---

← →
EvS ©   (2006-04-23 16:31) [4]

>График не строится.

Как-то странно ты к нему обращаешся.
Form1-это что наименование Charta?

---

← →
Holod   (2006-04-23 16:46) [5]

да нет, это на form1 находится Chart.

---

← →
EvS ©   (2006-04-23 18:21) [6]

ну так и пиши Form1.Chart1.Series1.AddXY(w,q,FloatToStr(q),clRed)
и зачем двойное преобразование
сначала  q := StrToFloat(StringGrid1.Cells[1,i])
потом обратно FloatToStr(q)

---

← →
Holod   (2006-04-24 07:38) [7]

Тогда хренова туча ошибок: что необъявлен идентификатор Series1 и что несовместимы типы Real и String.

---

← →
balepa ©   (2006-04-24 09:30) [8]

> Holod   (24.04.06 07:38) [7]


Я с Вас балдю :)

---

← →
EvS ©   (2006-04-24 10:00) [9]

Давно уже  Chart-ом не пользовался
Series нужно сначала создать
 Chart.AddSeries(TChartSeries.Create(Chart));
затем  уже обращаться к Series
 Chart.Series[0].AddXY(w,q,FloatToStr(q),clRed);
Вобщем твоя процедура примерно так выглядеть должна

procedure TForm1.Button2Click(Sender: TObject);
var s:String;
begin
With Form1.Chart1 do begin
 If  SeriesCount=0 then AddSeries(TChartSeries.Create(Form1.Chart1));
 Series[0].Clear;
end;
With StringGrid1 do
for i := 1 to RowCount-1 do begin
 s:=Cells[1,i]);
 Form1.Cahrt1.Series[0].AddXY(StrToFloat(Cells[3,i]),StrToFloat(s),s,clRed);

end;

end;

---

← →
Плохиш ©   (2006-04-24 11:19) [10]

> Form1.Series1.AddXY(w,q,FloatToStr(q),clRed);


> With Form1.Chart1 do begin

По вбивал бы :@

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.036 c