Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+133
if chkyandex.Checked then
reg.Expression:='([a-zA-Z0-9]+[\.]{0,}[\_]{0,}[-]{0,})+@([ya]{2}[ndex]{0,4}|[xaker]{5})\.[a-zA-Z]{2,3}\s{0,4}[:;]\s{0,4}[a-zA-Z0-9\.\_]+';
else
reg.Expression:='([a-zA-Z0-9]+[\.]{0,}[\_]{0,}[-]{0,})+@([mail]{4}|[inbox]{5}|bk{2}|list{4})\.([a-zA-Z]{2,3}\s{0,4}[:;]\s{0,4}[_\-a-zA-Z\d\.\_]+)';
RegEXP головного мозга.
Работает.
Запостил: 
brutushafens,
08 Июля 2014
Follow us!
Съест yanexd, yynnnn, aye и прочую хуиту ;)
> {0,}
Это можно заменить на звездочку.
> [\.]{0,}[\_]{0,}[-]{0,}
[\._-]* по идее
Въебал плюс. Годный говнокодец.
это же
[-\w.]+
Че ты меня путаешь, только английского
\w -> [A-Za-z9-0_]
Matches Unicode word characters; this includes most characters that can be part of a word in any language, as well as numbers and the underscore. If the ASCII flag is used, only [a-zA-Z0-9_] is matched (but the flag affects the entire regular expression, so in such cases using an explicit [a-zA-Z0-9_] may be a better choice).
Мне тупо влом учить, что именно означают эти /w в каждом используемом языке. Где-то только латиница, где-то с русскими, а где-то и иероглифы жрет... Поэтому я из них юзаю только \s. Безобразно, зато единообразно.
единобезобразие
Смайлик
Там был лямбда-смайлик \_->
(Показывает, в какую сторону излучает ноутбук)
[email protected]:password