Графики

← →
Tatb9na © (2008-12-17 18:27) [0]

Задача состоит в следующем, чтобы построить график, записать данные в массив, массив в файл и потом с этого файла построить график.

объявляю димнамический массив
и соотв переменные
OX,OY: real;
s,s1,s2,s3:string;
ar: array of array of real;

пишу так
begin
for i:=0 to poin
do begin
graf.Series1.AddXY(i*x, a*i*(1/sin(k*x)),"",clred);
end;
for cr:=1 to 2 do begin
for cc:=1 to poin do begin
OX:= strtofloat(FloatToStrF((i*x),ffNumber,4,2));
OY:= strtofloat(FloatToStrF((a*i*(1/sin(k*x))),ffNumber,4,2));
ar[cc,1]:=OX;
ar[cc,2]:=OY;
end; end;
end;

на стадии выполнения ошибка
1 212,00 is not valid floatting point value.

← →
{RASkov} © (2008-12-17 20:31) [1]

> 1 212,00 is not valid floatting point value.

Это результат работы FloatToStrF.... Т.е. обратно из строки, сформированной данной функцией, получить число нельзя.

← →
Tatb9na © (2008-12-17 22:21) [2]

это я исправила. подскажите как мне эту легенду сохранить. я делаю так уже:
begin
for i:=0 to poin
do begin
graf.Series1.AddXY(i*x, a*i*(1/sin(k*x)),"",clred);
// end;
for cr:=1 to poin do begin
for cc:=1 to 2 do begin
OX:= x*i;
OY:= a*i*(1/sin(k*x));
str(OX:5:2,S);
str(OY:5:2,S1);

ar[1,cr]:=S;
ar[2,cr]:=S1;
end;
end;
for i1:=1 to poin do
for j:=1 to 2 do begin
graf.stringgrid1.Cells[1,j]:=S;
graf.stringgrid1.Cells[2,j]:=S1;
end; end;

end;

← →
Сергей М. © (2008-12-17 22:53) [3]

> построить график, записать данные в массив

Неужели задание прямо тот так и звучит - сначала расчитать значения и по ним построить график, потом вновь расчитать те же самые значения и записать их в массив ?

Или это твоя вольная интертрепация задания ?

Я к тому клоню, что вряд ли препод, каким бы он ни был, станет давать такую дурацкую вводную .. А именно это сейчас реализовано в твоем коде ..

← →
Сергей М. © (2008-12-17 23:07) [4]

Последовательность действий напрашивается сама собой:

1. Расчитать данные и записать их в таблицу, роль которой выполняет массив.
2. По табличным данным, взятым из массива, построить график.
3. Записать содержимое массива в файл.
4. Прочитать содержимое файла в массив.
5. Выполнить п. 2

← →
Tatb9na © (2008-12-17 23:38) [5]

вы правы: рассчитать данные, построить график, записать данные в файл, потом возможно по любым данным из лююого сохраненного файла построить график... записывать данные можно в любую структуру...

> Сергей М. © (17.12.08 23:07) [4]
>
> Последовательность действий напрашивается сама собой:
>
> 1. Расчитать данные и записать их в таблицу, роль которой
> выполняет массив.
> 2. По табличным данным, взятым из массива, построить график.
>
> 3. Записать содержимое массива в файл.
>

2 и 3 лучше поменять местами. Так будет логичнее, если нет задачи по графику решать стоит ли эти данные сохранять в файл.

> Tatb9na

Для сохранения и восстановления массива можно и удобно использовать, например, TMemoryStream или TFileStream ..

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