Главное меню delphi

ELSE 
Digit_Length:=0; 
end
;
{Case}
End; 
И еще один пример, где список выбора представляет собой простое перечисление: 
Case 
chVar 
Of
‘N’, ‘n’, ‘т’, ‘Т’ : Answer := ‘No’; 
‘Y’, ’y’, ‘н’, ‘Н’ : Answer := ‘Yes’; 
ELSE 
Answer := ‘Wrong key’; 
end
; 
{Case}
Оператор выбора 
Case
более выгоден в смысле скорости выполнения программы, чем большое 
количество последовательно следующих друг за другом операторов 
IF
. Максимальная скорость бу-
дет достигаться в том случае, если наиболее вероятные варианты будут располагаться в самом нача-
ле, так как проверяются все списки, начиная с первого только до того момента, пока не будет найде-
но совпадение.