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

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

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

График

Holod © (2006-04-23 08:54:00)
Всем привет! У меня такая проблема - пишу следующий код:
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-24 11:19:00) [1]

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

> With Form1.Chart1 do begin

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

EvS (2006-04-24 10:00:00) [2]
Давно уже 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;

balepa (2006-04-24 09:30:00) [3]

> Holod (24.04.06 07:38) [7]

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

Holod (2006-04-24 07:38:00) [4]
Тогда хренова туча ошибок: что необъявлен идентификатор Series1 и что несовместимы типы Real и String.

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

Holod (2006-04-23 16:46:00) [6]
да нет, это на form1 находится Chart.

EvS (2006-04-23 16:31:00) [7]
>График не строится.

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

Holod (2006-04-23 15:03:00) [8]
Люююди! ну неужели никто не знает! Вам один раз глянуть, а я уже запарился ошибку искать!! Заранее спасибо.

Holod (2006-04-23 13:47:00) [9]
Тяжелый случай...Народ, посмотрите, пожалуйста.

Мефисто (2006-04-23 13:40:00) [10]
Наверно накосячил... А кто такой Series1 ?

Наверх

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