![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#3
|
|||
|
|||
![]() Переменная типа класса и есть указатель на класс, после того как экземпляр класса создан.
Код:
type // PNewClass = ^TNewClass; TNewClass = class FField :string; end; ... procedure TForm1.Button1Click(Sender: TObject); var b : TNewClass; begin b := TNewClass.Create; //в этот момент "b" становится указателем на класс b.FField := '3'; label1.Caption := b.FField; b.Free; end; Не забывайте делать резервные копии |