Скачать: CL | DM;

Вопрос, может, в корне глупый, но все-таки.   Найти похожие ветки 

← →
The   (2002-09-24 13:28) [0]

здравствуйте.

сам не знаю, стоит ли спрашивать, но как-то меня заинтересовал вопрос: а возможно ли узнать название процедуры из тела ее самой?
чтобы долго не объяснять, получится должно приблизительно такое

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
s:=...; //Какой-то метод, который и возвратит "Button1Click"
ShowMessage(s);
end;

есть такая возможность?

---

← →
qube ©   (2002-09-24 13:34) [1]

нет

---

← →
DiamondShark ©   (2002-09-24 13:36) [2]

Ответ, может, в корне глупый, но все-таки.

Чтобы долго не объяснять, получается приблизительно такое

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
s:="TForm1.Button1Click";
ShowMessage(s);
end;

---

← →
qube ©   (2002-09-24 13:38) [3]

> DiamondShark ©

:))

---

← →
The   (2002-09-24 13:42) [4]

каков вопрос, таков ответ ))

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c