Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.11.14;
Скачать: [xml.tar.bz2];

Вниз

edit   Найти похожие ветки 

 
проходящий мимо   (2004-10-31 09:38) [0]

Вопрос такой в Edit вводится строка которая может содержат
числ, знаки + * и (). Как проверить что введены именно такие
символы. В случае некорректного ввода, символы не входящие в
допустимые окрашиваются в красный цвет


 
Torin   (2004-10-31 09:57) [1]

Насчёт окрашивания не знаю, а проверить можно так:
for i := 1 to Length(Edit1.Text) do
 if not ( Edit1.Text[i] in["A".."Z","a".."z","1".."2","*","(",")"]  ) then
begin
//Код ввыполняемый в случае некорректного символа
end;



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.11.14;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.03 c
14-1098958755
Digitman
2004-10-28 14:19
2004.11.14
WinEtka как OLE-сервер автоматизации


14-1098860395
han-bratan
2004-10-27 10:59
2004.11.14
Delphi 2005


6-1091443966
Serguar
2004-08-02 14:52
2004.11.14
TIdTCPServer & TIdTCPClient не могу поймать отсоединение клиента


3-1097269483
Сергей_Пл
2004-10-09 01:04
2004.11.14
Delphi + MySQL (Обсуждалось, но суть у меня совсем другая)


1-1099319598
Kat
2004-11-01 17:33
2004.11.14
Как Word преобразовать в String?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский