1   
2   //---------------------------------------------------------------------------
3   
4   #include <vcl.h>
5   #pragma hdrstop
6   
7   #include "Unit1.h"
8   //---------------------------------------------------------------------------
9   #pragma package(smart_init)
10  #pragma resource "*.dfm"
11  TForm1 *Form1;
12  //---------------------------------------------------------------------------
13  __fastcall TForm1::TForm1(TComponent* Owner)
14          : TForm(Owner)
15  {
16  }
17  void ValidEmail(AnsiString sEmail)
18  {
19  String ValidChars =
20  "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890.-_@";
21  int at,dot,i,z;
22  bool bOkay;
23  String sLine;
24  char eLetter;
25  
26      at = sEmail.Pos('@');
27      dot = sEmail.LastDelimiter('.');
28      bOkay =((at>0)&& (dot>at));
29  
30      if (bOkay) {
31       for(i=1;i<=sEmail.Length();i++){
32              bOkay =  (ValidChars.Pos(sEmail[i])>=1);
33         if (bOkay ==false){
34          break;
35         }
36       }
37      }
38  
39    if(bOkay){
40     ShowMessage("Valid Email Address");
41    }
42    else {
43    ShowMessage("NOT a Valid Email Address");
44    }
45  }
46  //---------------------------------------------------------------------------
47  
48  void __fastcall TForm1::Button1Click(TObject *Sender)
49  {
50   ValidEmail(Edit1->Text);
51  }
52  //---------------------------------------------------------------------------
53