uses uunit;
procedure asdf; far;
Begin
End;
BEGIN
UnitProc(asdf);
CallUnitProc;
END.
модуль uunit:
unit uunit;
interface
Type
TProc = procedure;
procedure UnitProc(proc : TProc);
Procedure CallUnitProc;
implementation
Var
temp : TProc;
procedure UnitProc(proc : TProc);
Begin
temp := proc;
End;
Procedure CallUnitProc;
Begin
temp;
End;
End.
Проблемы с вызовом процедуры...
скажите если я передаю в процедуру(описанную в модуле), др процедуру описанную в гл. программе как вызвать последнюю по ссылке из модуля?
Пример:
в осн программе:
И ничего не работает((, помогите горю (((((....он почемуто тыкается в адресс с 0х0000000, и вылетает сообщение об ошибке...
[COLOR=red]используй тэги code для оформления кода.[/COLOR]
Пример:
в осн программе:
Код:
И ничего не работает((, помогите горю (((((....он почемуто тыкается в адресс с 0х0000000, и вылетает сообщение об ошибке...
[COLOR=red]используй тэги code для оформления кода.[/COLOR]
Во-первых я надеюсь, что ты в курсе, что
Цитата:
The directives near, far, and export refer to calling conventions in 16-bit Windows programming. They have no effect in 32-bit applications and are maintained for backward compatibility only.
Во-вторых форматируй нормально код.
В-третьих этот код у меня работает нормально. Возможно причина в чем-то другом.