VPF::Вызов процедуры-члена объекта из другого модуля

Rasool

Дата 9.4.2018, 21:50 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 4.6.2011

Репутация: нет
Всего: нет

Следующий код вызывает ошибку "Access (ошибка доступа к памяти)":

Цитата

unit BladeMeasureResults;

uses pomkl;

type
TfrmBladeMeasureResults = class(TfrmMeasureResults)
    //...
    public
        procedure ShowParam;
    end;

var
    frmBladeMeasureResults: TfrmBladeMeasureResults;

implementation

procedure TfrmBladeMeasureResults.FormCreate(Sender: TObject);
begin
    if not Assigned(aShowParam) then // здесь дебаггер выдает значение aShowParam = "Unaccessible value"
        aShowParam := ShowParam;
end;

procedure TfrmBladeMeasureResults.ShowParam;
begin
    //...
end;

Цитата

unit pomkl;
type
    TShowParam = procedure of object; // Костыль для вызова процедуры frmBladeMeasureResults.ShowParam;

var
    aShowParam: TShowParam;

implementation

procedure TPomklView.KeyDown(var Key: Word; Shift: TShiftState);
    procedure UpdateStatistic;
    begin
        if Assigned(aShowParam) then
            aShowParam; // Здесь возникает ошибка доступа к памяти
    end;

Как можно вызвать процедуру frmBladeMeasureResults.ShowParam из модуля pomkl?
Может быть, как-то ссылаться на объект frmBladeMeasureResults из pomkl.pas?

_zorn_

Дата 10.4.2018, 16:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1077
Регистрация: 21.8.2007

Репутация: нет
Всего: 12

Делфи еще жыф ? smile

Мой первый и потому любимый язык (вообще то паскаль)
Поверь, в реальной жизни тебя эти вопросы не станут беспокоить.
Я сам когда в делфи программил про ООП даже не задумывался ) А вас хотят научить ООП. Вот и пробуй его понять.
От языка не зависит особо.

А на вопрос все же отвечу - в unit пропиши frmBladeMeasureResults

Это сообщение отредактировал(а) _zorn_ - 10.4.2018, 16:39

Rasool

Дата 10.4.2018, 17:53 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 4.6.2011

Репутация: нет
Всего: нет

Проблема решена - сделал управление вызовом процедуры с помощью событий.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »