[terehovk]

как сделать огарничение в edit1 на 14 цифр

[Михалыч]

Есть такой параметр MaxLenght, максимальное количество вводимых символов в поле, если ты это имел в виду.

[lmikle]

1. Установить свойство MaxLength в 14
2. Проверять вводимые символы:

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  If (Key >= #32) And (Not (Key In ['0'..'9'])) Then Key := #0;
end;

[terehovk]

тогда как узнать ведины эти 14 цифр или нет

[lmikle]

Код:

If Length(Edit1.Text) < 14 Then ShowMessage('Не введено 14 цифр.');

А вообще, головой думать бум?
Все же на поверхнисти лежит...

[Roman_s]

По моему личному мнению, сначала надо пару учебников прочитать, попробовать самому вникнуть, а уж затем спрашивать !!!
Админ извиняй за отсебятину !!!