|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
использование SetStrProp
Код:
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'), и как это исправить? |