OberonCore • - POINTER TO ANYREC

Сообщения без ответов | Активные темы

Список форумов » BlackBox Component Builder » Компонентный Паскаль

Часовой пояс: UTC + 3 часа

POINTER TO ANYREC

Страница 1 из 1

[ Сообщений: 6 ]

Версия для печати

Пред. тема | След. тема

Автор

Сообщение

Евгений Семашко

Заголовок сообщения: POINTER TO ANYREC

Добавлено: Понедельник, 24 Июль, 2006 00:14

Зарегистрирован: Вторник, 15 Ноябрь, 2005 01:43
Сообщения: 14
Откуда: Россия, Орёл

Доброго времени суток, господа.
У меня ест ьтакой вопрос: я создал процедуру добавления элемента в начало списка.

Код:

PROCEDURE AddToList (VAR head: ANYPTR; elem: ANYPTR);
BEGIN
   WITH head : PFodder DO
         WITH elem: PFodder DO
            elem.next := head;
            head := elem;      
         END;
      |   head: PMineralSubstance DO
         WITH elem: PMineralSubstance DO
            elem.next := head;
            head := elem;      
         END;
      END;      
END AddToList;

Так вот. В коде программы я пишу:

Код:

AddToList(head,p);

head и p в данном случае - PFodder.
Как мне думается, если Fodder является потомком ANYREC, то все должно быть хорошо. А на самом деле возникает ошибка несоответствия типов параметров - фактического и формального. Я подозреваю что это связано с тегами, но в данном случае не очень понятно, можно ли этого избежать?

Вернуться к началу

Сергей Губанов

Заголовок сообщения: Re: POINTER TO ANYREC

Добавлено: Понедельник, 24 Июль, 2006 09:45

Зарегистрирован: Пятница, 25 Ноябрь, 2005 18:55
Сообщения: 2272
Откуда: Россия, Нижний Новгород

Если процедура объявлена так:
PROCEDURE AddToList (VAR head: ANYPTR; elem: ANYPTR);
то и передавать в качестве VAR параметра Вы должны именно ANYPTR.

Код:

VAR head, elem: PFodder;
  pointer: ANYPTR;
BEGIN
  ...
  pointer := head;
  AddToList(pointer, elem);
  head := pointer(PFodder);

Но тогда смысла в такой процедуре становится маловато.

Ну, попробуйте её оформить как функцию (без VAR параметров), как-нибудь так:

list := Attach(list, element)(PFodder);

А ещё лучше, не поленитесь и напишите типизированные варианты процедур.

Вернуться к началу

Евгений Семашко

Заголовок сообщения: Re: POINTER TO ANYREC

Добавлено: Понедельник, 24 Июль, 2006 11:50

Зарегистрирован: Вторник, 15 Ноябрь, 2005 01:43
Сообщения: 14
Откуда: Россия, Орёл

Сергей Губанов писал(а):

А ещё лучше, не поленитесь и напишите типизированные варианты процедур.

Как раз это я и написал, но это мне не нравится

, поскольку надо писать для каждого типа свою процедуру. Хорошо, что здесь только две операции. А если бы их было 50, 10? Как бы мой код увеличился...
Да, видимо, сделаю функцию... Хотя хочется сделать процедуру. Ну джа ладно. Спасибо.

Вернуться к началу

Сергей Губанов

Заголовок сообщения: Re: POINTER TO ANYREC

Добавлено: Понедельник, 24 Июль, 2006 14:23

Зарегистрирован: Пятница, 25 Ноябрь, 2005 18:55
Сообщения: 2272
Откуда: Россия, Нижний Новгород

Евгений Семашко писал(а):

Хорошо, что здесь только две операции. А если бы их было 50, 10? Как бы мой код увеличился...

Ой, да ладно...

---

Я односвязными списками обычно так пользуюсь:

Код:

TYPE
  List = POINTER TO RECORD
    head: Head;
    tail: List
  END;

  PROCEDURE NewList (head: Head; tail: List): List;
    VAR list: List;
  BEGIN NEW(list); list.head := head; list.tail := tail;
    RETURN list
  END NewList;

  ...
  list := NewList(head, list); (* добавить элемент в начало списка *)
  ...

где тип Head - для каждого типа списка свой.

Вернуться к началу

Илья Ермаков

Заголовок сообщения:

Добавлено: Вторник, 25 Июль, 2006 00:22

Зарегистрирован: Понедельник, 14 Ноябрь, 2005 18:39
Сообщения: 9459
Откуда: Россия, Орёл

Почему не использовать такой вариант

Код:

   TYPE 
      ListItem = POINTER TO RECORD
         next: ListItem
      END;

   PROCEDURE AddToList (VAR head: ListItem; List: ListItem);
   BEGIN
      elem.next := head;
                head := elem;      
   END AddToList;

и не наследовать свои типы от ListItem?

Вернуться к началу

Илья Ермаков

Заголовок сообщения:

Добавлено: Вторник, 25 Июль, 2006 00:26

Зарегистрирован: Понедельник, 14 Ноябрь, 2005 18:39
Сообщения: 9459
Откуда: Россия, Орёл

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

Вернуться к началу

Страница 1 из 1

[ Сообщений: 6 ]

Список форумов » BlackBox Component Builder » Компонентный Паскаль

Часовой пояс: UTC + 3 часа

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 10

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