Здравствуйте, Master Yoda, Вы писали:
MY>Здравствуйте, DarkMaster, Вы писали:
MY><...>
MY>Сорри за придирку 
:
DM>>DM>>function GetStringProperty(Obj: TPersistent; PropertyName: string): string;
DM>>var PropInfo: PPropInfo;
DM>>begin
DM>> Result:=''; // эта инициализация лишняя
DM>>
if not IsPropertyInfo(Obj,PropertyName,PropInfo)
then exit;
DM>> Result:=GetStrProp(Obj,PropInfo);
DM>>
end;
DM>>
Ты так думаешь? Закоментируй её и запусти:
procedure TForm8.FormCreate(Sender: TObject);
var
S: string;
begin
S := 'Test';
Caption := S;
S := GetStringProperty(Self, 'Абракадабра');
ShowMessage(S);
end;
