Código Delphi [-]
if (Pos(Edit1.Text, '@') <> 0) then
  if (Pos(Edit1.Text, '.') <> 0) then
  begin
    //Hago lo que tenga que hacer... 
  end;

Código Delphi [-]
Edtit1.text + Combobox.text;

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);


        begin
          with ADOTable1 do begin
            insert;
             FieldByName('UserID').Value := '9999999';
             FieldByName('LastName').Value := 'LastName';
             FieldByName('Name').Value := 'Name';
             FieldByName('Address').Value := 'Address';
             FieldByName('PostalCode').Value := 'Postal Code';
             FieldByName('City').Value := 'City';
             FieldByName('Phone').Value := '8787878';
             FieldByName('Email').Value := 'Email';
             FieldByName('Birthday').Value := '12/31/1900';
            post
          end ;
          SaveJpegToTable(ADOTable1, ADOTable1Picture, 'button.jpg') ;


end;

Código Delphi [-]
{UserId}
If (DBEdit2.Text = '') then
     ShowMessage('User Id is Empty')
else
 if (Pos(DBEdit2.Text, '@') <> 0) then
  if (Pos(DBEdit2.Text, '.') <> 0) then
  begin
   ADOTable1.Edit;
    DBEdit2.text := Maskedit1.Text ;
    DBEdit6.text := Maskedit2.Text ;
    DBEdit8.text := Maskedit3.Text ;
    DBEdit10.text := Maskedit4.Text ;
    ADOTable1UserID.AsString := DBEdit2.text;
    ADOTable1LastName.AsString := DBEdit3.text;
    ADOTable1Name.AsString := DBEdit4.text;
    ADOTable1Address.AsString := DBEdit5.text;
    ADOTable1PostalCode.AsString := DBEdit6.text;
    ADOTable1City.AsString := DBEdit7.text;
    ADOTable1Phone.AsString := DBEdit8.text;
    ADOTable1Email.AsString := DBEdit9.text;
    ADOTable1Birthday.AsString := DBEdit10.text;
   ADOTable1.Post;
  end
 else
  Showmessage ('The email entry is wrong');

end;

Código Delphi [-]
const
 JPEGstarts = 'FFD8';
 BMPstarts = '424D';  //BM

var
  Form1: TForm1;

implementation
   Uses jpeg;
{$R *.dfm}

{ fuction to see the picture }

function JpegStartsInBlob (PicField:TBlobField):integer;
var
 bS     : TADOBlobStream;
 buffer : Word;
 hx     : string;
begin
 Result := -1;
 bS := TADOBlobStream.Create(PicField, bmRead);
 try
  while (Result = -1) and (bS.Position + 1 < bS.Size) do
  begin
   bS.ReadBuffer(buffer, 1);
   hx:=IntToHex(buffer, 2);
   if hx = 'FF' then begin
     bS.ReadBuffer(buffer, 1);
     hx:=IntToHex(buffer, 2);
     if hx = 'D8' then Result := bS.Position - 2
     else if hx = 'FF' then bS.Position := bS.Position-1;
   end; //if
  end; //while
 finally
  bS.Free
 end;  //try
end;

{adding picture}



//Extra!! save JPG to table
procedure SaveJpegToTable(Table: TADOTable; PicField:TBlobField; sPicPath: string);
{
Usage:

  SPicFileName := 'C:\!gajba\cdcovers\cdcover1.jpg';
  SaveJpegToTable(ADOTable1, ADOTable1Picture, SPicFileName);
}
var
  fS  : TFileStream;
begin
  fs:=TFileStream.Create(sPicPath, fmOpenRead);
  try
   Table.Edit;
   PicField.LoadFromStream(fs);
   Table.Post;
  finally
   fs.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  bS  : TADOBlobStream;
  Pic : TJpegImage;
begin

  if opendialog1.execute then
    begin
      SaveJpegToTable(ADOTable1, ADOTable1picture, Opendialog1.filename);
    end;
    bS := TADOBlobStream.Create(AdoTable1Picture, bmRead);
  try
    bS.Seek(JpegStartsInBlob(AdoTable1Picture), soFromBeginning);
    Pic:=TJpegImage.Create;
    try
     Pic.LoadFromStream(bS);
     Image1.Picture.Graphic:=Pic;
    finally
     Pic.Free;
    end;
  finally
    bS.Free
  end;

end;

Código Delphi [-]
var
 M,N:Integer;
begin
 M:=Pos(Edit1.Text, '@');
 N:=Pos(Edit1.Text, '.')
if (M> 1) then
  if (N+2 > M) then//tambien podría ponerse Legth para saber la cantidad de caracteres 
                         //y que este sea mayor que la posición del punto (.)
  begin
    //Hago lo que tenga que hacer... 
  end;

Código Delphi [-]
Copy('[email protected]', 
Pos('[email protected]','@'), 
Length('[email protected]')); //Si la respuesta es vacia pues de entrada ya esto quiere
// decir que el email no es valido... De lo contrario...

Código Delphi [-]
Copy('[email protected]', 
Pos('[email protected]','@'), 
Length('[email protected]')); //Si la respuesta es vacia pues de entrada ya esto quiere
// decir que el email no es valido... De lo contrario...

Código Delphi [-]
var
 M,N:Integer;
 SubCadena:String;
begin
 M:=Pos(Edit1.Text, '@');
 SubCadena=Copy(Edit1.Text,M,Length(Edit1.Text));
 N:=Pos(SubCadena, '.')
if (M> 1) then
  if (N>2) then//tambien podría ponerse Legth para saber la cantidad de caracteres 
                         //y que este sea mayor que la posición del punto (.)
  begin
    //Hago lo que tenga que hacer... 
  end;

Código Delphi [-]
 
var
 M,N :Integer;
 SubCadena :String;
begin
  M:=Pos(Edit1.Text, '@');
  if (M > 1) then
  begin
    SubCadena=Copy(Edit1.Text,M,Length(Edit1.Text));
    N:=Pos(SubCadena, '.')
    if ((N>2) and (Length(SubCadena)<>N) ) then
    begin
      //Hago lo que tenga que hacer...
    end;
  end;
end;

Código Delphi [-]
with ADOTable1 do begin
            insert;
             FieldByName('UserID').Value := '9999999';
             FieldByName('LastName').Value := 'LastName';
             FieldByName('Name').Value := 'Name';
             FieldByName('Address').Value := 'Address';
             FieldByName('PostalCode').Value := 'Postal Code';
             FieldByName('City').Value := 'City';
             FieldByName('Phone').Value := '8787878';
             FieldByName('Email').Value := 'Email';
             FieldByName('Birthday').Value := '12/31/1900';
            post

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
 M,N :Integer;
 SubCadena :String;
begin
  M:=Pos(DBEdit9.Text, '@');
  if (M > 1) then
  begin
    SubCadena:=Copy(DBEdit9.Text,M,Length(Edit1.Text));
    N:=Pos(SubCadena, '.') ;
    if ((N>2) and (Length(SubCadena)<>N) ) then
  begin
   ADOTable1.Edit;
    DBEdit2.text := Maskedit1.Text ;
    DBEdit6.text := Maskedit2.Text ;
    DBEdit8.text := Maskedit3.Text ;
    DBEdit10.text := Maskedit4.Text ;
    ADOTable1UserID.AsString := DBEdit2.text;
    ADOTable1LastName.AsString := DBEdit3.text;
    ADOTable1Name.AsString := DBEdit4.text;
    ADOTable1Address.AsString := DBEdit5.text;
    ADOTable1PostalCode.AsString := DBEdit6.text;
    ADOTable1City.AsString := DBEdit7.text;
    ADOTable1Phone.AsString := DBEdit8.text;
    ADOTable1Email.AsString := DBEdit9.text;
    ADOTable1Birthday.AsString := DBEdit10.text;
   ADOTable1.Post;
  end;
 end;
end;

Código Delphi [-]
var
pri : string ; 
procedure TForm1.ComboBox2Change(Sender: TObject);
begin

  case combobox2.ItemIndex of

   0 :  begin
          pri := DBedit9.Text + '@hotmail.com' ;
         end;
   1 :  begin
          pri := DBedit9.Text + '@msn.com' ;
        end;
   2 :  begin
          pri := DBedit9.Text + '@yahoo.com' ;
        end;
   3 :  begin
          pri := DBedit9.Text + '@mts.net' ;
        end;
   4 :  begin
          pri := DBedit9.Text + '@shaw.ca' ;
        end;
  end;
end;

Código Delphi [-]
Uses Winsock;

function GetIp(Host: string): string;
var
  WSAData: TWSADATA;
  HostEnt: phostent;
begin
  Result:= '';
  if WSAStartup(MAKEWORD(1, 1), WSADATA) = 0 then
  begin
    HostEnt:= gethostbyname(PChar(Host));
    if HostEnt <> nil then
      Result:= String(inet_ntoa(PInAddr(HostEnt.h_addr_list^)^));
    WSACleanup;
  end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   ShowMessage(GetIp('www.hotmail.com'));
   ShowMessage(GetIp('www.esunabroma.com')); //NO válido
   ShowMessage(GetIp('www.yahoo.com.mx'));
   ShowMessage(GetIp('www.yahoo.com'));
   ShowMessage(GetIp('www.esunabroma.com')); //NO válido
   ShowMessage(GetIp('www.clubdelphi.com'));
   ShowMessage(GetIp('www.clubdelphi.com.mx')); //NO válido
end;

Código Delphi [-]
uses
  RegExpr;

function EsEmailValido(Email: String; Ping: Boolean = false);
var
  RegExp: TRegExpr;

begin
  RegExp := TRegExp.Create;

  try
    RegExp.Expression := '^\w+(\.\w+)*@(\w+(\.\w+)+)$';
    Result := RegExp.Exec(Email);

    if Result and Ping then
      Result := GetIP(RegExp.Match[2]) <> '';
  finally
    RegExp.Free;
  end;
end;

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject); var  M,N :Integer;  SubCadena :String; begin   M:=Pos(DBEdit9.Text, '@');   if (M > 1) then   begin     SubCadena:=Copy(DBEdit9.Text,M,Length(Edit1.Text));     N:=Pos(SubCadena, '.') ;     if ((N>2) and (Length(SubCadena)<>N) ) then   begin    ADOTable1.Edit;     DBEdit2.text := Maskedit1.Text ;     DBEdit6.text := Maskedit2.Text ;     DBEdit8.text := Maskedit3.Text ;     DBEdit10.text := Maskedit4.Text ;     ADOTable1UserID.AsString := DBEdit2.text;     ADOTable1LastName.AsString := DBEdit3.text;     ADOTable1Name.AsString := DBEdit4.text;     ADOTable1Address.AsString := DBEdit5.text;     ADOTable1PostalCode.AsString := DBEdit6.text;     ADOTable1City.AsString := DBEdit7.text;     ADOTable1Phone.AsString := DBEdit8.text;     ADOTable1Email.AsString := DBEdit9.text;     ADOTable1Birthday.AsString := DBEdit10.text;    ADOTable1.Post;   end;  end; end;

Código Delphi [-]

            insert;
             FieldByName('UserID').Value := '9999999';
             FieldByName('LastName').Value := 'LastName';
             FieldByName('Name').Value := 'Name';
             FieldByName('Address').Value := 'Address';
             FieldByName('PostalCode').Value := 'Postal Code';
             FieldByName('City').Value := 'City';
             FieldByName('Phone').Value := '8787878';
             FieldByName('Email').Value := 'Email';
             FieldByName('Birthday').Value := '12/31/1900';
            post

Código Delphi [-]
procedure TForm1.BtnNuevoClick(Sender : TObject);
begin
  if not (AdoTable1.State in [dsEdit, dsInsert]) then
    AdoTable1.Insert; // o AdoTable1.Append
end;

procedure TForm1.BtnGuardarClick(Sender : TObject);
begin
  if AdoTable1.State in [dsEdit, dsInsert] then
    AdoTable1.Post;
end;