Классы в Delphi

[wertret]

Приветствую, уважаемые. Нужно решить задачу - на вершине иерархии стек, элементы типа Pointer. Наследники - стек из строк и стек из чисел. Реализовать иерархию.
1 вопрос: Как объявить в классе данные типа record? Объявление, приведенное ниже, довольно коряво и я не уверен в правильности его работы.
2 вопрос: У меня не получается задать тип элементов из класса-наследника, можно ли это вообще сделать средствами Delphi и как?

Пример. Не работающий, к сожалению =(:

MyStack = class(TObject)
  Head: NodePointer;
public
  constructor Create;
  destructor Destroy;
end;

MyStringQueue=class (MyStack)
public 
  Node: record  value: string;  next: Pointer; end;
  NodePointer: ^Node;  
end;

[wertret]

Неужели никто не знает?

[s-andriano]

Запись нужно описать перед объявлением класса.

[Stilet]

Запись нужно описать перед объявлением класса.

Если у тебя XE то не обязательно:

type c=class
    r:record
     n:integer;
    end;
end;

var x:c;
begin
 x.r.n:=....
end.

Впрочем не все на новеньких лошадках сидят...

[wertret]

Сообщение от s-andriano

Запись нужно описать перед объявлением класса.

В том-то и дело, что мне нужно сделать класс стек, и подклассы со стеком строк и чисел. То есть, методы обработки стека должны быть в основном классе, а записи - в классах-наследниках.

Сообщение от Stilet

Если у тебя XE то не обязательно:

type c=class
    r:record
     n:integer;
    end;
end;

var x:c;
begin
 x.r.n:=....
end.

Впрочем не все на новеньких лошадках сидят...

Delphi 7, тут уж как препод решает =(

[s-andriano]

Сообщение от wertret

В том-то и дело, что мне нужно сделать класс стек, и подклассы со стеком строк и чисел. То есть, методы обработки стека должны быть в основном классе, а записи - в классах-наследниках.

И в чем проблема?

[wertret]

Сообщение от s-andriano

И в чем проблема?

В первом посте расписал, не получается задать тип элементов для записи из класса-наследника.

[Stilet]

не получается задать тип

Ты его неверно задаешь. В Случаях в Д7 правильно сказали: описывай тип записи выше класса, где будешь использовать его. Описывай его отдельно.

[s-andriano]

И, кстати, в данном случае правильно описывать именно ДО. Т.к. эта структура фигурирует в разделе public. Вот если бы она был в private, тогда по идеологическим соображениям ее не следовало бы выносить на всеобщее обозрение.

[wertret]

Хмм, может, я неправильно понимаю условие? Нужно реализовать иерахию - на вершине стек, его элементами являются данные типа Pointer. Наследники - стек из строк и стек из чисел.

Как я понимаю, в основном классе нужно описывать методы работы со стеком, а его элементами делать указатели на запись. Сама же запись объявляется в классе-наследнике, и, соответственно, поле значений принимает либо строковый тип, либо целочисленный.

В таком случае объявить запись перед классом не получается, а никакого другого метода реализации я не вижу.
P.S. Извиняюсь за тупость, но действительно не могу ничего сообразить =)