Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Функция try
В нижеследующем кусочке нужно добавить функцию 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;

Спасибо...
1 | Автор: Fonochka | 2010-12-16, 18:30   |  Репутация: [ + 0 ]
Во-первых TRY это не функция а конструкция (try...except...end), а во-вторых здесь ее применять это всеравно что напиться обезбаливающих и сесть голой задницей на раскаленную плиту. Пеполнение файлового потока нужно предвидеть узнав его текущий размер и плюсанув размер ожидающегося поступления, а не тогда, когда он уже начнет конкретно глючить.

Paymer-Soft всему голова!
2 | Автор: Paymer-Soft-COM | 2013-12-01, 03:04 | Изменено: Paymer-Soft-COM - Вс, 2013-12-01, 03:06   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: