TLookupValidator
Абстрактный объект TLookupValidator предназначен для контроля соответствия введенной пользователем строки набору эталонных строк. Фактически он модифицирует поведение базового объекта TValidator на случай, когда проверяется произвольная текстовая строка. В его потомках должен перекрываться метод Lookup, осуществляющий нужный контроль и возвращающий True только в том случае, когда подготовленная пользователем строка соответствует одному из желаемых значений. Например, с помощью объекта
type
TMyLookupValidator = object(TLookupValidator)
Function Lookup(const S: String): Boolean; Virtual;
end;
Function TMyLookupValidator.Lookup;
const
Textl = 'Turbo';
Text2 = 'Pascal';
begin
Lookup := (S=Textl) or (S=Text2) or (S=Textl+' '+Text2)
end;
можно потребовать от пользователя ввода только одной из трех возможных строк: Turbo, Pascal или Turbo Pascal.