указатель на класс

[Михаил]

Гритингс!
что-то я всё не могу понять систему работы с классами

есть такая иерархия классов

Код: Выделить всё

  TBase = class
  private   
  protected
    FName:String;
    FID:integer;
    FType:TInterfaceBase;
  public
  end;

  TTributarBase = class (TBase)
  private
  protected
    FRx,FTx:TBase; //исп. как указатель либо на TTributarBase, либо на TVCBase
  public
  end;

  TVCBase = class(TBase)
  private
  protected
    FMember:TBase;  //исп. как указатель
  public
  end;

  TSTM1 = class
  private
    ...
  protected
    FVCRx: array [0..62] of TVCBase; //эти классы все создаются
    FVCTx: array [0..62] of TVCBase; //эти классы все создаются
  public
  end;

  TLine = class
  private
    ...
    FSTM1:TSTM1;//создаётся класс
    ...
  public
  end;

  TCross = class
  private
    FLineA,FLineB:TLine;//тоже создаётся
  public
  end;


вопрос в струдию!!!
у нас допустим дан элемент FBase от TBase, по элементу FType в нём нам известно что он отностился к одному из... либо FLineA, либо FLineB
есть указатель aLine:TLine;

получаем указатель на соответствующий класс
aLine:=TLine(FBase)

при обращении к методу либо свойству класса всё работает номально
i:=aLine.ID

но если сделать так, то вылетает
i:=aLine.FSTM1.FVCRx[5].ID

[ZerstoreN]

Что-то не воткнул, где автор получает указатель на класс, похоже речь идет об экземплярах?
"класс создается" - имеется в виду что до использования было сделано что-то вроде
FLineA := TLine.Create; ?
и что такое .ID, кстати?

[Михаил]

Что-то не воткнул, где автор получает указатель на класс, похоже речь идет об экземплярах?
"класс создается" - имеется в виду что до использования было сделано что-то вроде
FLineA := TLine.Create; ?

ну как бы да

и что такое .ID, кстати?

свойство тако

Код: Выделить всё

  TBase = class
  private   
  protected
    FName:String;
    FID:integer;
    FType:TInterfaceBase;
  public
    property ID:integer write FID read FID;
  end;
...
...
...
constructor TCross.Create;
begin
  inherited Create; 
  FLineA:=TLine.Create;
  FLineA:=TLine.Create;
end;
...
...
...
constructor TLine.Create;
begin
  inherited Create; 
  FSTM1:=TSTM1.Cteate;
end;
...
...
...
constructor TSTM1.Create;
var i:integer
begin
  inherited Create; 
  for i:=0 to 62 do
  begin
    FVCRx[i]:=TVCBase.Create;
    FVCTx[i]:=TVCBase.Create;
  end;
  FSTM1:=TSTM1.Cteate;
end;
...
...
...
constructor TVCBase.Create;
begin
  inherited Create; 
  FMember:=nil;
end;
...
...
...
constructor TTributarBase.Create;
begin
  inherited Create; 
  FRx:=nil;
  FTx:=nil;
end;


[Михаил]

Код: Выделить всё

procedure Form1.SetParam(Base:TBase);
var
  aLine:TLine;
  aVCBase:TVCBase;
  i:integer;
begin
  aLine:=TLine(Base);
  i:=aLine.ID; //так всё работает
...
  i:=aLine.FSTM1.FVCRx[5].ID;//при таком вызове происходит эксепшн, типа класса FSTM1 не существует
...
  aVCBase:=TVCBase(Base);//зато если так вызвать указатель на класс
  i:=aVCBase.ID;//то всё нормуль проходит
end;

[Sergei I. Gorelkin]

Судя по коду, у Вас класс TLine не наследуется от TBase. Приведение типов в форме TLine(something) - это чисто синтаксическое выражение, никаких проверок не производится, поэтому если something на самом деле не является объектом класса TLine, результат будет непредсказуем. Что-то может даже случайно сработать, как у Вас ID.
Чтобы приведение типов выполнялось с проверкой, используют оператор as: MyLine := something as TLine;

[Михаил]

aLine:=Base as TLine

у мя пишет
Class or Object types "TBase" and "TLine" are not related

вообще посоветуйте что-нибудь для работы с классами почитать по-подробнее....... на русском желательно

[Михаил]

Приведение типов в форме TLine(something) - это чисто синтаксическое выражение, никаких проверок не производится, поэтому если something на самом деле не является объектом класса TLine, результат будет непредсказуем. [/b]

ну дело то в том, что он мне указатель на класс возвращает нормульный, но при попытке передвижения вниз по иерархии от этого указателя происходит эксепшн


и ещё вопрос!

у меня классы

TBase = class
end;

TVCBase = class(TBase)
end;

TTributatBase = class(TBase)
end;

TSTM1 = class
end;

находятся в одном модуле Unit1
а в Unit2 оставшиеся

TLine = class
end;

TCross = class
end;

который ссылается на Unit 1 за недостающими элементами....
так вот хотелось бы в классе типа TVCBase иметь ссылку на породивший его класс типа FLine:TLine; (тогда не придётся делать эти разъименования)
но при написании в Unit1 строчки

TLine = class;
компилятор пишет Error: Forward type not resolved "TLine"
что это такое может быть? так нильзя песать?