Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Фильтрация символов... помогите сделать.. 
:(
    Опции темы
syan66
Дата 5.5.2006, 10:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 8.12.2005

Репутация: нет
Всего: нет
Ой, ну зачем же так все усложнять......

Код

const LegalChar =  ['-'..'Z',
                    '\',
                    '_',
                    'a'..'z',
                    Chr(VK_BACK),
                    Chr(VK_ESCAPE),
                    Chr(VK_RETURN),
                    Chr(VK_Delete)];

Для ручного ввода:
Код

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in LegalChar) then Key:= Chr(0);
end;

Для copy/paste:
Код

procedure TForm1.Edit1Change(Sender: TObject);
var i: Integer;
begin
 for i:= 1 to Length(Edit1.Text) do
    if not (Edit1.Text[i] in LegalChar) then
        begin
        ShowMessage('Îé!');
        Edit1.Text:= Copy(Edit1.Text, 1, i - 1);
        Exit;
        end;
 
PM MAIL   Вверх
Alexeis
Дата 5.5.2006, 12:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
syan66, и что ваш код обнаружит ошибку в такой строке
www.http://ya.ru.
Я же сказал для КОРРЕКТНОЙ! - кроме того в строке могут идти параметры для php
например адресс этого вопроса
http://forum.vingrad.ru/index.php?showtopic=94422&st=15
правельный, а ваш код скажет, что нет... 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
syan66
Дата 5.5.2006, 12:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 8.12.2005

Репутация: нет
Всего: нет
Отлично! А правила поменять нельзя? В данном конкретном случае (для url) :
1. добавить в set недостающие символы
2. описать правило, по которому http:// всегда Pos(1) ???? 
PM MAIL   Вверх
Alexeis
Дата 5.5.2006, 13:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
syan66, О! Как раз это и делает TRegExpr - красиво, быстро, а главное унифицировано. Более того позволяет гибко менять эти самые правила без изменения исходного кода! 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
vv3
Дата 5.5.2006, 14:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 75
Регистрация: 29.4.2006

Репутация: нет
Всего: нет
Да, я же не против... Просто я лично не люблю сторонние компоненты, которые через год искать приходится, поскольку Delphi переустанавливал, необходимости в них не было, потом старый проект поднять приходится, а тут... Class not found
(syan66 - that's me)
smile 
PM MAIL   Вверх
Yanis
Дата 5.5.2006, 16:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
Цитата(vv3 @  5.5.2006,  14:24 Найти цитируемый пост)
поскольку Delphi переустанавливал

Не все же так часто свои проекты переделывают... 


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
vv3
Дата 5.5.2006, 16:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 75
Регистрация: 29.4.2006

Репутация: нет
Всего: нет
Цитата(Yanis @  5.5.2006,  16:33 Найти цитируемый пост)
Не все же так часто свои проекты переделывают...  

Ага... Вот в том-то и дело, что нечасто. smile 
PM MAIL   Вверх
SniyLSD
Дата 7.7.2008, 12:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 32
Регистрация: 28.5.2008

Репутация: нет
Всего: нет
А как сделать, чтобы определенны й символ, если печатается в TEdit, то только первым, или вообще не печатается, вроде код должен получиться таким  :
Код

 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 case key of
  '0'..'9',#8:;
  '-':<здесь должен быть дополнительный оператор>;
  else
  key:=chr(0);
  end;
end;

какой оператор нужно дописать? нужно сделать, чтобы знак '-' печатался только в начале или вообще не печатался, если первый символ уже напечатан.
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0492 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.