Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Полем класса является объект другого класса

Автор: Ellochka 25.11.2007, 16:24

Я создаю класс, полем которого хочу сделать переменную типа класс, скажем TFont.

Например, так:

Код



type TNewClass = class
  --какие-то поля--
  f: TFont;
 
  constructor Create;
  --какие-то методы--
  destructor Done;
  end;

Как мне надо реализовать метод Create или что-то другое надо сделать, чтобы я могла использовать поле f ? может я должна создать объект f? Можно показать на примере?

Автор: lukas 25.11.2007, 17:29

Ellochka,

да все также как с переменными....

Код


type TNewClass = class
  --какие-то поля--
  f: TFont;
 
  constructor Create;
  property AnyFont:TFont read F write F;
  destructor Done;
  end; 

...

constructor TNewClass.Create;
begin
inherited;
F:=TFont.Create;
end;

destructor TNewClass.Done;
begin
inherited;
F.Free;
end;

Автор: Shaggy 25.11.2007, 18:35

Код


Type
  TMyClass =
    Class
      Private
        FFont:TFont;

        Procedure SetFont(Const Value:TFont);

        Procedure ChangeFont(Sender:TObject);
      Public
        Constructor Create;
        Destructor Destroy; Override;

        Property Font:TFont Read FFont Write SetFont;
    End;

implementation

Constructor TMyClass.Create;
Begin
  Inherited;
  FFont:=TFont.Create;
  FFont.OnChange:=ChangeFont;
End;

Destructor TMyClass.Destroy;
Begin
  FFont.Free;
  Inherited
End;

Procedure TMyClass.SetFont(Const Value:TFont);
Begin
  FFont.Assign(Value);
End;

Procedure TMyClass.ChangeFont(Sender:TObject);
Begin
  //вызовется при изменении в FFont
End;

Автор: ACMilian 11.3.2009, 17:45

может кто подскажет а как создать класс, где полем является массив из объектов другого класса.
что то вроде этого :

Код


type
   SubClass = class
      public
          ksc : integer;
       end;
type
   MainClass = class
      public
          kod : array of SubClass;
      end;

и как его инициализировать?

Автор: Christoph 11.3.2009, 18:33

Код


FField:TObjectList;

Автор: MetalFan 11.3.2009, 22:39

Цитата(ACMilian @ 11.3.2009, 17:45

)

и как его инициализировать?

а после создания MainClass он и так "проинициализирован" нулями)

Автор: ACMilian 12.3.2009, 11:12

MetalFan, вот вопрос и был как инициализировать.

Код


 constructor Create(count: integer); 

constructor TMainClass.Create(count: integer);
Var
  i : Integer;
begin
//inherited;
SetLength(kod, Count);
for i := 0 to count-1 do
kod[i] := TSubClass.Create;
end;

но как я понял это как то криво.
наверное буду делать такое поле:

Цитата

FField:TObjectList;

только не могу понять как взаимодействовать этим полем с главным классом. буду разбираться.

всем спасибо. вопрос пока закрыт.

Автор: MetalFan 12.3.2009, 13:03

Цитата(ACMilian @ 12.3.2009, 11:12

)

но как я понял это как то криво.

почему криво? нормально. смотря для каких задач.
но при использовании TObjectList появляются дополнительные удобства, такие, как контроль жизни объектов в списке

Автор: ACMilian 13.3.2009, 16:55

Вставил клас в объект TObjectList. Как сейчас обратиться к методу этого класса?

Код


for i := 0 to MainList.Count-1 do
  begin
  MainList[i].CalcRPlanNorm;
  end;

выдаёт ошибку что не объявлен CalcRPlanNorm. smile

Автор: Christoph 13.3.2009, 17:26

приведи к типу класса из которого вызываешь метод
Например так

Код


TMyClass(MainList[i]).CalcRPlanNorm;