Глюки с вызовом процедуры по ссылке

[yantar92]

ну в этом уже врядли хто-нибудь разберется...
на всякий случай прицеплю проэкт

[s.Creator]

А не пробовал вместо вызова процедуры поместить ее содержание

 series.AddXY(x,y);
 series.ParentChart.Parent.Repaint;

Может дело вообще не в процедуре, а именно в series.ParentChart.Parent.Repaint; ?

[Stilet]

ну в этом уже врядли хто-нибудь разберется...

Здря пугаешь.
1. Ты назвал переменную series не подумав что так называется один из модулей, которые используется в uses:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, series, ExtCtrls, TeeProcs, TeEngine, Chart;

Ясен песень что глючило.

2. Не слишком ли ты большое число передаешь в dc_A_st(100000000,
Это ведь конкретно затормозит прогу - это количество шагов цикла.
Поставь хотя бы 1000

3. Result:=Res/(n_steps div step_to_calc) - ты подумал о том что (n_steps div step_to_calc) могут дать 0 ?
Если нет то бегом подумать над этим.

Когда исправишся - далее можно будет корректировать код.

[yantar92]

Сообщение от Stilet

Здря пугаешь.
1. Ты назвал переменную series не подумав что так называется один из модулей, которые используется в uses:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, series, ExtCtrls, TeeProcs, TeEngine, Chart;

Ясен песень что глючило.

2. Не слишком ли ты большое число передаешь в dc_A_st(100000000,
Это ведь конкретно затормозит прогу - это количество шагов цикла.
Поставь хотя бы 1000

3. Result:=Res/(n_steps div step_to_calc) - ты подумал о том что (n_steps div step_to_calc) могут дать 0 ?
Если нет то бегом подумать над этим.

Когда исправишся - далее можно будет корректировать код.

Пункт 2 нужен из-за особенносей целей программы.
Для пункта 3 такая ситуация невозможна из-за особенностей входных данных
А насчет пункта 1, то попробую исправить. Надеюсь поможет.

Поменял, вылетает при втором вхождении в paint.

[Stilet]

такая ситуация невозможна из-за особенностей входных данных

Бабушка надвое сказала...

Поменял, вылетает при втором вхождении в paint.

Вот ты насчет пункта 3 когда внимательнее подумать будешь тогда и вылетать перестанет, ибо у меня все работает как надо.

[yantar92]

Сообщение от Stilet

Вот ты насчет пункта 3 когда внимательнее подумать будешь тогда и вылетать перестанет, ибо у меня все работает как надо.

Учитывая, что я их явным образом задаю, пункт 3 случится только в случае выполнения кода:

if 2<1 then return Mystery;

[yantar92]

Вот конкретный пример ошибки.