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

[yantar92]

Проблема в том, что при передаче ссылки на процедуру как параметр функции начинаются глюки с методами глобального класса.

...
type 
 Tpaint=procedure (const x:extended; const y:extended; var series:Tlineseries);
...
procedure paint(const x:extended; const y:extended; var series:Tlineseries);
begin
 series.AddXY(x,y);
 series.ParentChart.Parent.Repaint;
end;
...
function dc_A_st(... var paint:Tpaint;var series:Tlineseries ...):extended;
...
begin
...
 paint(x,y,series);
...
end;

При исполнении процедуры paint выбивает "Ivalid pointer operation", а при дебаге пишет, что метод Repaint класса series.ParentChart.Parent - не определён, тогда как сам класс является определенным.

[Stilet]

Во-первых: Плохо то что ты переменную-параметр и процедуру назвал одинаково.
Во-вторых: как ты вызываешь dc_A_st?

[yantar92]

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

Во-первых: Плохо то что ты переменную-параметр и процедуру назвал одинаково.

Это я для наглядности переписал. На самом деле они по разному называются.

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

Во-вторых: как ты вызываешь dc_A_st?

...
var proc:TPaint;
...
begin
...
 proc:=paint;
 dcAst:=dc_A_st(... proc,series ...);
...

[Stilet]

Ну не знаю...
у меня такое:

  Tpaint=procedure (const x:extended; const y:extended;series:Tlineseries);

procedure paint(const x:extended; const y:extended; series:Tlineseries);
begin
 write('qq');readln;
end;

function dc_A_st(paintA:Tpaint):extended;
begin
 paintA(1,2,3);
end;

begin
 dc_A_st(paint);
  { TODO -oUser -cConsole Main : Insert code here }
end.

Работает.

[yantar92]

Там всё ясно, но у меня не работает именно series.ParentChart.Parent.Repaint, а если его убрать то все работает.

[Stilet]

Значит series неверно передаешь.

[yantar92]

но в то же время если после вызова paint-а написать application.processmassages, а series.ParentChart.Parent.Repaint с paint-а убрать, то вылетает уже на application.processmassages, тогда как без вызова paint всё прекрасно работает

[Stilet]

Значит точно процедуру не верно вызываешь.

[yantar92]

тогда как вызывать???

[Stilet]

Тогда нужно смотреть что ты там наворотил.
У меня как я сказал все ок.