[front242]

привет, очень хочется странного:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

tsomeclass = class( TPersistent )    private     Fabc: Integer;     procedure Setabc(const Value: Integer);    published      property abc : Integer read Fabc write Setabc;   end ; .... procedure tsomeclass.Setabc(const Value: Integer); begin   Fabc := Value;   // здесь хочу получить строку содержащую имя property ('abc')  // а в идеале вообще TPropInfo для этого property // но согласен даже на имя самого сеттера ('Setabc') end;

в частности хочется автоматом апдейтить базу данных при изменении значения property

помогайте, если не перевелись дельфисты ;-
готов увидеть любые извращения. важен результат

ps. версия дельфи номер семь

[lmikle]

Вроде такое невозможно.
Можно попробовать вытащить имя текущей процедуры из CallStack.
Только вот зачем такие извращения. С учетом целевой задачи, обновления БД, лучше сделать так, как это сделано у TDataSet. Есть некоторая метаинформация (массив Fields : TField) и соотв. методы для работы с ним.

[stanilar]

Может просто пробежаться по всем свойствам, и сравнить адрес сеттера с адресом функции?

[Freeman]

Вроде бы не очень сложно:

Код:

1 2 3 4 5 6 7 8 9 10

procedure TSomeClass.Setabc(const Value: Integer); var   PropList: PPropList;   I: Integer; begin   Fabc := Value;   for I := 0 to GetPropList(Self, PropList) - 1 do     if @PropList[i].SetProc = @SetAbc then       ShowMessage(PropList[i].Name); // PropList[i] -- и есть его PropInfo end;

Не проверял, лень.

[front242]

увы...

Код:

1 2 3 4 5 6 7 8 9 10

procedure TSomeClass.Setabc(const Value: Integer); var   PropList: PPropList;   I: Integer; begin   Fabc := Value;   for I := 0 to GetPropList(Self, PropList) - 1 do     if @PropList[i].SetProc = @SetAbc then // ___________ Error: variable required       ShowMessage(PropList[i].Name); // PropList[i] -- и есть его PropInfo end;

сейчас беру имя сеттера из callstack (JclDebug). как бы работает, но
вариант с адресом мне больше по душе. только вот как заставить
работать вышеприведенный код?

[Freeman]

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

вариант с адресом мне больше по душе. только вот как заставить работать вышеприведенный код?

Ну почитай в справке про сравнение процедурных переменных, поэкспериментируй. Мож в левой части сравнения собака не нужна?