![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | 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; |