[maZaHaKa]

Не могу сделать проверку правильности e-mail. Нужно хотя бы учесть символ "@"
Нашел этот код, но разобратся в нем не могу. Что и куда вставлять не понятно. Прошу помогите

function IsValidEmail(const Value:string):boolean;
  function CheckAllowed(const s:string):boolean;
  var
    i: integer;
  begin
    Result:= false;
    for i:= 1 to Length(s) do
    begin
      if not (s[i] in ['a'..'z', 'A'..'Z', '0'..'9', '_', '-', '.']) then
        Exit;
    end;
    Result:= true;
  end;
var
  i: integer;
  namePart, serverPart: string;
begin
  Result:= false;
  i:= Pos('@', Value);
  if i = 0 then
    Exit;
  namePart:= Copy(Value, 1, i - 1);
  serverPart:= Copy(Value, i + 1, Length(Value));
  if (Length(namePart) = 0) or ((Length(serverPart) < 5)) then
    Exit;
  i:= Pos('.', serverPart);
  if (i = 0) or (i > (Length(serverPart) - 2)) then
    Exit;
  Result:= CheckAllowed(namePart) and CheckAllowed(serverPart);
end;

[lmikle]

Ну и в чем проблема? Готовая функция. Вставляешь куда-нить в модуле, где собираешься ее вызывать. А далее:

Код:

procedure Buttin1Click(Sender : TObject);
begin
  If Not IsValidEmail(Edit1.Text)
    Then ShowMessage('email неправильный')
    Else // Здесь код использования
end;

[maZaHaKa]

Сделал кнопку кинул туда:

procedure TForm1.Button7Click(Sender: TObject);
begin
If Not IsValidEmail(Edit2.Text)
    Then ShowMessage('email неправильный')
    Else button7.Click;;
end;
end;

Всю процедуру поместил в модуль edit2:

procedure TForm1.Edit2Change(Sender: TObject);
function IsValidEmail(const Value:string):boolean;
  function CheckAllowed(const s:string):boolean;
  var
    i: integer;
  begin
    Result:= false;
    for i:= 1 to Length(s) do
    begin
      if not (s[i] in ['a'..'z', 'A'..'Z', '0'..'9', '_', '-', '.']) then
        Exit;
    end;
    Result:= true;
  end;
var
  i: integer;
  namePart, serverPart: string;
begin
  Result:= false;
  i:= Pos('@', Value);
  if i = 0 then
    Exit;
  namePart:= Copy(Value, 1, i - 1);
  serverPart:= Copy(Value, i + 1, Length(Value));
  if (Length(namePart) = 0) or ((Length(serverPart) < 5)) then
    Exit;
  i:= Pos('.', serverPart);
  if (i = 0) or (i > (Length(serverPart) - 2)) then
    Exit;
  Result:= CheckAllowed(namePart) and CheckAllowed(serverPart);
end;
end;

Пишет:

[Error] Unit1.pas(242): BEGIN expected but END found

[maZaHaKa]

Помогите

[Admin]

Сообщение от maZaHaKa

Помогите

Код:

function CheckAllowed(const s:string):boolean;
var
  i: integer;
begin
  Result:= false;
  for i:= 1 to Length(s) do
  begin
    if not (s[i] in ['a'..'z', 'A'..'Z', '0'..'9', '_', '-', '.']) then
    Exit;
  end;
  Result:= true;
end;

function IsValidEmail(const Value:string):boolean;
var
  i: integer;
  namePart, serverPart: string;
begin
  Result:= false;
  i:= Pos('@', Value);
  if i = 0 then
    Exit;
  namePart:= Copy(Value, 1, i - 1);
  serverPart:= Copy(Value, i + 1, Length(Value));
  if (Length(namePart) = 0) or ((Length(serverPart) < 5)) then
    Exit;
  i:= Pos('.', serverPart);
  if (i = 0) or (i > (Length(serverPart) - 2)) then
    Exit;
  Result:= CheckAllowed(namePart) and CheckAllowed(serverPart);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if not IsValidEmail(Edit2.Text)
 then ShowMessage('email неправильный')
 else button7.Click;
end;

[maZaHaKa]

А теперь [Error] Unit1.pas(254): ';' expected but '.' found

procedure TForm1.MaskEdit2Change(Sender: TObject);
begin
if (maskedit1.text='') or (maskedit2.text='') or (Edit2.text='') then label10.caption:='Заполните поля';
Button1.Enabled := Length(MaskEdit2.Text) > 3;
if Button1.enabled=false
     then label10.caption:='Минимум 4 символа'
        else label10.caption:='';
end;

procedure TForm1.Edit2Change(Sender: TObject);
function CheckAllowed(const s:string):boolean;
var
  i: integer;
begin
  Result:= false;
  for i:= 1 to Length(s) do
  begin
    if not (s[i] in ['a'..'z', 'A'..'Z', '0'..'9', '_', '-', '.']) then
    Exit;
  end;
  Result:= true;
end;

function IsValidEmail(const Value:string):boolean;
var
  i: integer;
  namePart, serverPart: string;
begin
  Result:= false;
  i:= Pos('@', Value);
  if i = 0 then
    Exit;
  namePart:= Copy(Value, 1, i - 1);
  serverPart:= Copy(Value, i + 1, Length(Value));
  if (Length(namePart) = 0) or ((Length(serverPart) < 5)) then
    Exit;
  i:= Pos('.', serverPart);
  if (i = 0) or (i > (Length(serverPart) - 2)) then
    Exit;
  Result:= CheckAllowed(namePart) and CheckAllowed(serverPart)
end;

[NIch]

Код:

//----------------------------------------------------
procedure TForm1.MaskEdit2Change(Sender: TObject);
begin
if (maskedit1.text='') or (maskedit2.text='') or (Edit2.text='') then     label10.caption:='Заполните поля';
Button1.Enabled := Length(MaskEdit2.Text) > 3;
if Button1.enabled=false
 then label10.caption:='Минимум 4 символа'
        else label10.caption:='';
end;
//----------------------------------------------------
procedure TForm1.Edit2Change(Sender: TObject);//что это???
begin
 //Должно быть хотя бы так
end;
//----------------------------------------------------
function CheckAllowed(const s:string):boolean;
var
  i: integer;
begin
  Result:= false;
  for i:= 1 to Length(s) do
  begin
    if not (s[i] in ['a'..'z', 'A'..'Z', '0'..'9', '_', '-', '.']) then
    Exit;
  end;
  Result:= true;
end;
//----------------------------------------------------
function IsValidEmail(const Value:string):boolean;
var
  i: integer;
  namePart, serverPart: string;
begin
  Result:= false;
  i:= Pos('@', Value);
  if i = 0 then
    Exit;
  namePart:= Copy(Value, 1, i - 1);
  serverPart:= Copy(Value, i + 1, Length(Value));
  if (Length(namePart) = 0) or ((Length(serverPart) < 5)) then
    Exit;
  i:= Pos('.', serverPart);
  if (i = 0) or (i > (Length(serverPart) - 2)) then
    Exit;
  Result:= CheckAllowed(namePart) and CheckAllowed(serverPart)
end;
//----------------------------------------------------

[maZaHaKa]

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

[friz]

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

Сообщение от maZaHaKa

Сделал кнопку кинул туда:

procedure TForm1.Button7Click(Sender: TObject);
begin
If Not IsValidEmail(Edit2.Text)
    Then ShowMessage('email неправильный')
    Else button7.Click;;
end;
end;

Что это за прога такая? этож бесконечный цикл!

Сообщение от maZaHaKa

Всю процедуру поместил в модуль edit2:

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. ДАЕШЬ ТЕМУ В ЮМОР!