VPF::В чем суть ошибки Pointers и динамические строки

andru2012

Дата 28.3.2014, 23:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 4.3.2012

Репутация: нет
Всего: нет

Вот написал программу, для формирования слова с указателями (pointers)
Но PascalABC пишет ошибку в строке 19 (pointers.pas(19) : element не объявлен в типе pointer)

Помогите мне! Я буду очень благодарен

Код


program pointers;
 
type
  zv = ^pointer;
 
  pointer = record
    element : char;
    next : zv;
  end;
 
var
  vlan : zv;  {separate element}
  vslov : zv;  { pointer for word }
  symbol : char;
 
begin
  readln(symbol);
  new(vslov);
  
  vslov^.element := symbol;
  vslov^.next := nil;
  vlan := vslov;
  
  while symbol <> '.' do
    begin
      read(symbol);
      new(vlan^.next);
      vlan := vlan^.next;
      vlan^.element := symbol;
      vlan^.next := nil;
    end;
end.

И если вам совсем не трудно, как сделать так, чтобы логической переменной LT присваивалось значение TRUE если слово начинается с буквы "N" ?

Bose

Дата 29.3.2014, 04:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

Репутация: 8
Всего: 51

Ну я б начал с того, что переименовал СВОЙ тип данных pointer и дал ему какое-то другое название, так чтобы оно НЕ СОВПАДАЛО с встроенным в Delphi типом. Например в MyPointer.

--------------------

Лучшее о Delphi за 2013 год. Подборка ссылок.

Poseidon

Дата 29.3.2014, 23:22 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

Цитата(Bose @ 29.3.2014, 04:37

)

Это, безусловно, корень проблемы. Но конкретно эта ошибка происходит из-за того, что строка zv = ^pointer; делает zv ссылкой не на самопальный record под именем pointer, а ссылкой на внутренний тип Delphi под именем pointer.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »