увы...
Код:
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). как бы работает, но
вариант с адресом мне больше по душе. только вот как заставить
работать вышеприведенный код?