График

← →
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.

> Holod (24.04.06 07:38) [7]

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

Давно уже 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;

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

> With Form1.Chart1 do begin

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

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