Узнать адрес процедуры

← →
DDA © (2004-07-11 00:58) [0]

Подскажите как можно узнать адрес процедуры например Memo1.clear

p:pointer;
begin
p:=@Memo1.Clear;// не работает

попробывал через асм - получил адрес,но не тот

P.S. Только не спрашифайте зачем мне это надо

← →
Palladin © (2004-07-11 01:03) [1]

А почему оно должно работать?
p:=@TMemo.Clear;

← →
DDA © (2004-07-11 01:10) [2]

> Palladin © (11.07.04 01:03) [1]
> А почему оно должно работать?

ну я и спрашиваю как узнать адрес,а не почему

← →
Palladin © (2004-07-11 01:12) [3]

Удалено модератором: LMD Lock

← →
KilkennyCat © (2004-07-11 01:18) [4]

Удалено модератором
Примечание: Оффтоп...

← →
Marser © (2004-07-11 01:22) [5]

Удалено модератором
Примечание: Оффтоп...

← →
KilkennyCat © (2004-07-11 01:25) [6]

Удалено модератором
Примечание: Оффтоп...

← →
DDA © (2004-07-11 01:32) [7]

Можно обсуждать здесь вопрос топика а не что-то другое(ваши мысли или ещё что-то)(на это есть потрепаться)

Если есть ответ на поставленый вопрос - давайте по существу.

Почему вы Palladin думаете что я не могу ошибаться и думать что оно должно работать,для этого я пришел сюда чтоб узнать истину

P.S. написал чтоб не спрашивали зачем мне это,дак спросили про другое,неужели нельзя без этого

← →
KilkennyCat © (2004-07-11 01:39) [8]

> DDA © (11.07.04 01:32) [7]

Мы ж не роботы... у нас есть эмоции. Извините, если что.

← →
Mim1 © (2004-07-11 01:53) [9]

Было уже, и не раз.

Созданный объект не содержит методов как таковых, только поля и ссылку на VMT где и хранится для каждого класса информация о методах. Ответ, как должно быть, я дал тебе в первом же посте. Хочешь подробностей VMT + F1

p:=@Memo1.Clear;// не работает

Clear не процедура, а метод КЛАССА, у тебя же получается метод объекта, а такого просто нет.

Только так, и никак иначе...
var Form1: TForm1; P: Pointer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if P <> nil then TMemo(P^).Clear; end; procedure TForm1.FormCreate(Sender: TObject); begin P := @Memo1; end;

См: [12] Anatoly Podgoretsky © (11.07.04 10:28)

> [3] Palladin © (11.07.04 01:12)
:))

Узнать адрес процедуры Найти похожие ветки