@temirlan_official

Info не объявлен в типе. В чём проблема?

info не объявлен в типе ^TElem
ошибка ниже

type
  TInfo = char;
  PElem = ^TElem;
  TElem = record
      info: TInfo;
      next: PElem;
  end;


procedure SearchIt;
var
ListC: PElem;
numD, numE, num: integer;
begin
numD := -1;
numE := -1;
num := 1;
ListC :=NachaloSpiska;
while ListC<>nil do
begin
  if (ListC.info = 'Д') and (numD = -1) then     <----------- НА ЭТОЙ СТРОКЕ ОШИБКА
    numD := num;
  if (ListC.info = 'Ё') and (numE = -1) then
    numE := num;
  num := num + 1;
  ListC:=ListC^.next;
end;
if (numD <> -1) then
  writeln('Первый символ Д встречается на позиции ', numD)
else
  if (numE <> -1) then
  begin
    writeln('Символ Д отсутствует в списке');
    writeln('Первый символ Ё встречается на позиции ', numE);
  end
  else
    writeln('Символы Д и Ё отсутствуют в списке')
end;
  • Вопрос задан
  • 40 просмотров
Решения вопроса 1
2ord
@2ord
продвинутый чайник
Нужно прежде разыменовать переменную по адресу ListC. Вместо ListC.info от так:
ListC^.info
Ответ написан
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы
Magora Systems Новосибирск
от 100 000 до 170 000 руб.
Be Young Family Москва
от 80 000 до 120 000 руб.
Libertex Group Барнаул
от 70 000 до 120 000 руб.