Проверка поля на надежность

[Alex Jordan]

Хочу сделать проверку.Есть едитка,куда я ввожу фамилию клиента - если в фамилии встечаються цифры - то должно вывести сообщение о некорректном заполнении поля!!Как это реализовать?

[maLoy*508]

объяви множество состоящее из чисел от нуля до девяти...
и потом посимвольно проверяй введенную строку...
примерно так...

var
  mnozh : set of Char ;
  i : integer;
begin
  mnozh := ['0'..'9'];
  for  i := 1 to Length(edit1.text) do
  begin
   if (edit1.Text[i] in mnozh) then
   begin
   ShowMessage('Error');
   Break;
   end;
  end;

[tarakan1983]

А не проще в Onkeypress прописать

if not(key in['А'..'Я','а'..'я', #8]) then key:=#0;

И тогда никак не введешь цифры.

[BARNEY]

ну если совсем правильно делать, то на уровне БД проверку ещё надо сделать, а то вдруг он(юзер) скопирует или ещё какую хрень выдумает