Код:
uses
TypInfo;
type
TMyType = class
private
FCaption: String;
published
property Caption: String read FCaption write FCaption;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
X: TMyType;
begin
SetStrProp(Sender, 'Caption', 'Test');
ShowMessage('Wow');
X := TMyType.Create;
try
SetStrProp(X, 'Caption', 'Test'); // Ooops
finally
FreeAndNil(X);
end;
end;
Почему я не могу использовать SetStrProp(X, 'Caption', 'Test'), и как это исправить?