Методы доступа к свойствам

[diliana]

Привет всем!

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

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

вот то что я сделала:

TYPE

{класс ЭЛЕМЕНТ очереди}
 TQueueItem = class
  private // закрытые свойства

    FData: integer; // наши данные
    FNext: TQueueItem; // указатель на следующий элемент
    procedure SetData (Value: integer); 
    procedure SetNext (Next: TQueueItem); 

  public // открытые методы класса

    property Data: integer read FData write SetData; // доступ к свойствам
    property Next: TQueueItem read FNext write SetNext;
       constructor Create (value: integer); // инициализация элемента очереди
  end;



{класс ОЧЕРЕДЬ}
  TQueue = class
  private

    FMarker: integer; // метка очереди -> для ее поиска
    FFirst, FLast: TQueueItem; // указатели начала и конца очереди
    procedure SetMarker (Mark: integer);
    procedure SetFirst (First: TQueueItem);
    procedure SetLast (Last: TQueueItem);


  public

    property Marker: integer read FMarker write SetMarker;
    property First: TQueueItem read FFirst  write SetFirst;
    property Last: TQueueItem read FLast  write SetLast;
      constructor Create; // инициализация очереди
      //...
  end;



{Класс КОНТЕЙНЕР}
  TCont = class
  private

    FMas: array of TQueue; // динамический массив указателей
    FOutput: TMemo; // ссылка на Memo
    function GetMas(Index: Integer): TQueue;
    procedure SetMas(Index: integer);

  public

   property Mas [index: integer]:TQueue read GetMas write SetMas; //??????????????
   property Output : Tmemo read FOutput;
     Constructor Create(var M: TMemo); // инициализация массива
     //...
  end;

//---реализация методов доступа

{класс TQueueItem********************************}

procedure TqueueItem.SetData (Value: integer);
begin
  FData := Value;
end;

procedure TqueueItem.SetNext (Next: TQueueItem);
begin
  FNext := Next;
end;

{инициализация элемента}
constructor TQueueItem.Create(value: integer);
begin
  Data := value;
  next := nil;
end;

{класс TQueue***********************************}

procedure TQueue.SetMarker (Mark: integer);
begin
  FMarker := Mark;
end;

procedure Tqueue.SetFirst (First: TQueueItem);
begin
  FFirst := First;
end;

procedure Tqueue.SetLast (Last: TQueueItem);
begin
  FLast := Last;
end;

{инициализация очереди}
Constructor TQueue.Create;// создаем пустую очередь
begin
  first := nil;
  last := nil;
end;

{класс TCont***************************************}

function TCont.GetMas(Index: Integer): TQueue;
begin
  Result := Mas[Index];
end;

procedure TCont.SetMas(Index: integer);
begin
  FMas[Index] := Mas; //????????
end;


{инициализация массива}
constructor TCont.Create(var M: TMemo);
begin
  SetLength(Mas,0);
  Output := M;//ссылку на поле MEMO
end;

[Stilet]

diliana

Солнышко, обычно в полночь спят люди, а не монитор глазами протирают )

Вот смотри. Твоя главная ошибка что ты не доверяешь Делфи дописывать за тебя, потому допустила стратегическую ошибку.
Обычно лентяи вроде меня если пишут поле, стучащее в массив, обьявленный в Private начинают так:

property Mas [index: integer]:TQueue

Далее нажимают CTRL+SHIFT+C и Делфи любезно дописывает все остальное за лентяев, аккуратно и главное правильно.
Получается такое:

  TCont = class
  private

    FMas: array of TQueue; // динамический массив указателей
    FOutput: TMemo;
    function GetMas(index: integer): TQueue;
    procedure SetMas(index: integer; const Value: TQueue); // ссылка на Memo
  public

   property Mas [index: integer]:TQueue read GetMas write SetMas;
   property Output : Tmemo read FOutput;
     Constructor Create(var M: TMemo); // инициализация массива
  end;
{ TQueueItem }

А у тебя ну прям невооруженной пяткой слышно что ты руками все писала, мучилась.
Не надо так, написала главное, CTRL+SHIFT+C - и пусть Делфи сама все доделает за тебя.

Ну а далее ты описываешь (т.е. Делфи уже все подготовила, тебе остается найти это все в коде) саму реализацию:

function TCont.GetMas(index: integer): TQueue;
begin
 if (i>=Low(FMas))and(i<=High(FMas)) then Result:=FMas[i] else Result:=nil;
end;

procedure TCont.SetMas(index: integer; const Value: TQueue);
begin
 if (i>=Low(FMas))and(i<=High(FMas)) then FMas[i]:=Value
  else begin
{ Иногда нужно чтоб свойство умело само расставлять правильно 
значения в массив, даже если нет места досоздать его до нужного размера. 
Это не всегда оптимально, но иногда полезно, впрочем эту часть кода можешь не писать
}
   SetLEngth(FMas,i+1);
    FMas[i]:=Value
  end;
end;

Все. А в программе просто проверяешь на nil то что вернет это свойство, и будет тебе счастье

[diliana]

Привет Stilet!

А у тебя ну прям невооруженной пяткой слышно что ты руками все писала, мучилась.
Не надо так, написала главное, CTRL+SHIFT+C - и пусть Делфи сама все доделает за тебя.

действительно я сама все писала-мучилась.
я же не знала, что есть такая суперштучка!
в общем удалила то, что сама написала, и с помощью этого приема заново свойства переделала

Спасибо большое-пребольшое за подсказку и за код!

[Stilet]

Всегда, пожалуйста )
Доверяй Делфи,она "вдруг тебя не бросит, лишнего не спросит".

[quit]

оффтоп:
такой метод программирования, в скором будущем, к добру не приведет

[Stilet]

к добру не приведет

Почему не приведет?

[quit]

Да потому, что народ отупеет... зачем писать и думать самому, когда делфи все само вставит и напишет, надо только кнопоньки нажать

[Utkin]

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

Да потому, что народ отупеет... зачем писать и думать самому, когда делфи все само вставит и напишет, надо только кнопоньки нажать

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

[Stilet]

надо только кнопоньки нажать

Это существенно сокращает время, и никак не мешает стратегии.
Тоже самое что сказать "Откажитесь от GUI - вернитесь в ДОС".
Ты как хочешь, а мне уже такое не понравится, я лучше доверюсь умным программам, сокращающим мне время и исправляющим мои ошибки.
Впрочем это уже флуд...