Показать сообщение отдельно
  #3  
Старый 09.12.2008, 12:17
san-46 san-46 вне форума
Активный
 
Регистрация: 25.04.2008
Сообщения: 383
Репутация: 33
По умолчанию

Переменная типа класса и есть указатель на класс, после того как экземпляр класса создан.
Код:
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;
По другому, вольно с классами обращаться нельзя.
__________________
Не забывайте делать резервные копии
Ответить с цитированием