@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;
  • Вопрос задан
  • 41 просмотр
Решения вопроса 1
2ord
@2ord
продвинутый чайник
Нужно прежде разыменовать переменную по адресу ListC. Вместо ListC.info от так:
ListC^.info
Ответ написан
Пригласить эксперта
Ваш ответ на вопрос

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

Войти через центр авторизации
Похожие вопросы