В нижеследующем кусочке нужно добавить функцию try, чтобы не возникло ошибки при закрытии файла, если вдруг поток данных будет слишком большим.
Code
procedure GenerateValues(
aminX,amaxX,Xstep : Real; // минимальная , максимальная граница и шаг
ak, // коэффициент k
ab:Real; // коэффициент B
aDisp:real; // максимальное генерируемое отклонение в процентах
aFileName : String); // Файл с данными
var
TF : File of real;
x,f,Disp : real;
begin
AssignFile(TF,aFileName);
Rewrite(TF);
x:=aminX;
while ( x <= amaxX ) do
begin
f := (ak*x+ab) * (1 + (Random-0.5)*(aDisp/100));
Write(TF,x,f);
Form1.Chart1.Series[0].AddXY(x,f);
x := x + Xstep;
end;
CloseFile(TF);
end;
Спасибо...
