Не срабатывает ReadString

Среда PascalABC.NET
#1

При вызове функции GetAction из модуля theunit, содержащей ReadString и ReadInteger, срабатывает только ReadInteger. theunit.pas (272 Байта) prog.pas (130 Байты)

#2

Наверное надо ReadlnString писать ))

#3

Уже пробовал - тот же эффект

#4

Приведите здесь код без модуля с ReadlnString

#6

Без использования модуля (всё в одной программе) ввод работает корректно.prog.pas (383 Байта)

#7

У вас ошибка в программе. И всё поперепутано. ReadString считывает до конца строки. Если вы уже стоите на конце строки, то считывает пустую строку.

Если вы смешиваете при вводе ReadString и ReadInteger, всегда заменяйте всё на ReadlnString и ReadlnInteger

Вот правильная программа

uses theunit;
begin
  println('Action number?');
  GetAction(readlninteger)();
end.
1 лайк
#8

Большое спасибо, теперь всё работает.