| exp |
| Отправлено: 15.01.2004, 13:47 |
|
Мастер участка
Группа: Участник
Сообщений: 304
|
Доброго времени суток, уважаемые.
Возникла проблема:
есть код в делфи, надо перевести в билдер
| CODE |
procedure TForm1.Button2Click(Sender: TObject);
var i,j: integer;
NewSeries: TLineSeries; // [1]
begin
for k:=1 to 30 do
begin
N:=SpinEdit1.Value;
Chart1.SeriesList.Clear; // очищаем чарт перед выводом
for i:=1 to N do // добавляем в N линий
begin
NewSeries:=TLineSeries.Create(Chart1); // создаем i-тую линию и до-
NewSeries.ParentChart:=Chart1; // бавляем в чарт
Chart1.AddSeries(NewSeries);
end;
SetLength(A,N);
for i:=0 to (N-1) do
SetLength(A[i],N);
for i:=0 to N-1 do
for j:=0 to N-1 do
A[i,j]:=f(i-((n-1) div 2),j-((n-1) div 2),k);
for i:=0 to N-1 do
Chart1.Series[i].Clear;
// добавляем посчитанные значения в чарт;
for i:=0 to N-1 do
for j:= 0 to N-1 do
Chart1.Series[i].Add(A[i,j],'',clRed);
Application.ProcessMessages;
end;
end;
|
теперь собственно проблема:
я не могу найти соответствие между типом TLineSeries в Делфе [1] и типом Билдера.
И вообще, как в билдере динамически добавить серию в чарт?
Заранее благодарен.
З.Ы. : эта штука выводит в чарт функцию двух переменных
f(x,y)=exp(-(x^2+y^2)/2)/sqrt(pi);
теперь все.
|
|
| fellow |
| Отправлено: 15.01.2004, 21:08 |
|
Дежурный стрелочник
Группа: Участник
Сообщений: 33
|
В билдере это тоже TLineSeries. Серии создаются с помощью оператора new, кроме того, следует устанавливать у серий член ParentChart. Или вызывать TChart::AddSeries(). |
|
| Георгий |
| Отправлено: 15.01.2004, 22:14 |
|
Почетный железнодорожник
Группа: Модератор
Сообщений: 874
|
| CODE | this->Chart1->SeriesList->Clear();
const n=13;
int i,j;
TLineSeries* ptrNewLine;
for(i=0;i<n;i++)
{
ptrNewLine=new TLineSeries(this->Chart1);
ptrNewLine->ParentChart=this->Chart1;
this->Chart1->AddSeries(ptrNewLine);
}; |
|
|
| exp |
| Отправлено: 15.01.2004, 23:35 |
|
Мастер участка
Группа: Участник
Сообщений: 304
|
тьфу! тупанул!
Ошибка просечена. Всем спасибо.
|
|
| exp |
| Отправлено: 16.01.2004, 12:03 |
|
Мастер участка
Группа: Участник
Сообщений: 304
|
нет подождите...
| CODE |
TLineSeries* ptrNewSeries;
|
вот на этой строчке билдер пишет "Undefined symbol 'TLineSeries' "
может че подключить надо?
|
|
| xTrim |
| Отправлено: 16.01.2004, 12:22 |
|
Машинист паровоза
Группа: Участник
Сообщений: 208
|
series.hpp
Отредактировано xTrim — 16/01/2004, 14:25
|
|
| exp |
| Отправлено: 17.01.2004, 20:01 |
|
Мастер участка
Группа: Участник
Сообщений: 304
|
Спасибо.
|
|
