Показать сообщение отдельно
  #7  
Старый 26.03.2010, 10:56
Аватар для friz
friz friz вне форума
Местный
 
Регистрация: 04.04.2008
Адрес: Минск
Сообщения: 596
Версия Delphi: 2007 & JAVA EE
Репутация: 10670
Смех даешь тему в юмор!

Сорри за оффтоп!

Цитата:
Сообщение от maZaHaKa
Сделал кнопку кинул туда:
Код HTML:
procedure TForm1.Button7Click(Sender: TObject); begin If Not IsValidEmail(Edit2.Text) Then ShowMessage('email неправильный') Else button7.Click;; end; end;
Что это за прога такая? этож бесконечный цикл!
Цитата:
Сообщение от maZaHaKa
Всю процедуру поместил в модуль edit2:
Код HTML:
procedure TForm1.Edit2Change(Sender: TObject); function IsValidEmail(const Value:string):boolean; function CheckAllowed(const s:string):boolean; var i: integer; begin Result:= false; ...................................
это вообще без комментариев
p.s. ДАЕШЬ ТЕМУ В ЮМОР!
Ответить с цитированием