Тема: Chart Save/Load
Показать сообщение отдельно
  #4  
Старый 11.02.2010, 17:05
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Цитата:
на данный момент я записываю график в тектовый файл WriteLn(x+TAB+y);

Если в файле кроме координат графика ничего не предполагается хранить, то лучше конечно сделать типизированный файл и с ним работать. Примерно так:
Код:
Var
    P: TPoint; Специальный тип в котором есть X,Y
    PFile: File of TPoint; 
begin 
 AssignFile(PFile, 'c:\file.xy');
 // Запись в файл координат
 Rewrite(PFile); //Создаем файл
 for i := 1 to 10
 do begin
     P.X := Sin(i); // Определяем какие-то координаты для X
     P.Y := Cos(i); // Определяем какие-то координаты для Y
     Write(PFile, P); // Записываем в файл 10 координат.
     end;
 CloseFile(PFile);
...
 //Чтение из файла координат
 Reset(PFile); // Открываем файл
 while not eof(PFile)
 do begin
     Read(PFile,P); //Получаем координаты из файла
     ... //Здесь по логике нужно рисовать на графике полученную точку  
     end;
 CloseFile(PFile);
end;  
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием