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


#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.

#8

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