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

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

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

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

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

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

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

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

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

uses theunit;
begin
  println('Action number?');
  GetAction(readlninteger)();
end.
1 симпатия

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