Парсер на классах Опции

[Triplet]

Всем добрый день!
Получила такое сумбурное задание, помогите, пожалуйста, разобраться.
Необходимо реализовать парсер арифметического выражения на классах.
Проблема как раз в этих классах, т.е., как я поняла, они должны быть реализованы таким образом:

type
  TCustomToken=class  //здесь должны храниться только литералы исходного выражения
  private
    FText: string;
  public
    property Text: string read fText;  //должно быть св-ом
    procedure LoadFromString(const S, Pos): Integer; 
  end;
  TNumberToken=class  //только цифры исходного выражения
  private
    FValue: Integer;   //должно быть св-ом
  public
     property Value: Integer read FValue;
  end;
  TCustomTokens=class  //всё выражение (должно считываться из двух предыдущих классов)
  private
    FCount: Integer;   //должно быть св-ом
    FItems: array [0..FCount-1] of Char;   //должно быть св-ом
    function  GetSymbol(Index: Integer): ;
    procedure SetSymbol(Index: Integer; Value: Longint);
  public
    property Count: Integer read FCount;
    property Items[index: Integer]: Longint read GetCoord write SetCoord; //не уверена, что правильно оформила
  end;

на форуме нашла такой код парсера
Постфиксная форма записи
http://volvo71.narod.ru/faq_folder/postfix.htm
там есть и ооп, но
подскажите, пожалуйста, как можно парсер оформить в виде именно этих классов. Как я поняла, каждый класс должен выступать в виде стека, и как правильно распорядиться свойствами классов?
Заранее большое спасибо)!

[Triplet]

Спасибо огромное!!!
Сейчас буду разбираться! Хотя задание и правда, мягко скажем, специфическое, на твоём сайте столько нормальных решений, а приходится что-то выдумывать(
Ещё раз спасибо!
p.s. я только, если что, ещё что-нибудь спрошу?))

Сообщение отредактировано: Triplet - 28.10.2008 19:25