[omaryan]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

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'), и как это исправить?