Получение ответов вида y\n, Интерфейс Опции

[habi]

Как лучше реализовать? =)
Если пользователь ввёл y, то условие тру, если n то фалс..

Задача: сделать защиту от "дурака".
Тип переменной ans, в которую передаётся нажатие пользователем клавишь, char.

Пробывал сделать через вайл, но почему-то не обнуляется потом переменная ans

while (ans='y') or (ans='n') do
begin
if .... then ... else...
end;

Так же сделал, через отдельную функцию, которая выводила окно, с 3 кнопками, да\нет\отмена =) но задание курсовой не позволяет ввести такое окно.
Так как же проверять значение лучше? :]

[habi]

будет ноу, а у меня при всех введёных буквах, кроме у, идёт выполнение операции.
Если я хотел выполнить её, но промахнулся..нажал ентер, всё =)
Это проверка стоит, на кнопке выход и некоторых других.
Теперь понятная суть?

Для считывания имён файлов, я сделал конструкцию вида

Код

fail:='';      {переменная  типа string}
       while fail='' do
       begin
       writeln('Введите имя файла:');
       readln(fail);
       end;
       ...
       дальше идёт работа с файлом, если его имя заполнено, в этой процедуре, этого хватает

Вопрос: можно ли не меняя типа переменной обнулять переменные с типом char? :]

Сообщение отредактировано: habi - 15.05.2008 21:16

[compiler]

Теперь понятная суть?

нет, так

function q2: boolean;
var str : string;
begin
   readln(str);
   if str='yes' then q2:=true else q2:=false;
end; { q2 }

Вопрос: можно ли не меняя типа переменной обнулять переменные с типом char? :]

ну.. под обнулением целых чисел подразумевается предание им определённого значения... присваивай своим переменным пробел..