Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.06;
Скачать: CL | DM;

Вниз

Задача =)   Найти похожие ветки 

 
Валет   (2002-05-24 17:09) [0]

Уважаемые мастера.
Дано: Edit1.text
Найти: Если в введённой строке есть символы \/><?*:"| , тогда выдать сообщение о том что введён недопустимый символ.
Ответ : ?

Зы..
Только без обработки keypress.


 
Виктор Щербаков ©   (2002-05-24 17:13) [1]

for i := 1 to Length(Edit1.Text) do
if Edit1.Text[i] in ["\", "/", "<", ">", "?", "*", ":", """, "|"] then Application.MessageBox("Введён недопустимый символ", "", mb_Ok);



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

Текущий архив: 2002.06.06;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.015 c
1-18002
Сергей Чакчир
2002-05-24 09:55
2002.06.06
Срочно нужен компонент красивых кнопок


1-18056
Валет
2002-05-24 18:37
2002.06.06
edit1.Text:=edit1.Text - ПОСЛЕДНИЙ ВВЕДЁННЫЙ СИМВОЛ;


1-17943
Z-man
2002-05-27 06:38
2002.06.06
Определить скорость


6-18077
Yuri Pipchenko
2002-03-25 14:26
2002.06.06
Telnet-клиент


1-17954
AL2002
2002-05-28 10:21
2002.06.06
Delphi Manual?