Цитата:
на данный момент я записываю график в тектовый файл 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;