Konu: email olayını kontrol eden fonk ve kullanımı Cuma Mart 27, 2009 12:03 am
unction IsEMail(EMail: String): Boolean; var s : String; ETpos: Integer; begin ETpos:= pos('@', EMail); if ETpos > 1 then begin s:= copy(EMail,ETpos+1,Length(EMail)); if (pos('.', s) > 1) and (pos('.', s) < length(s)) then Result:= true else Result:= false; end else Result:= false; end;
kullanımı procedure TForm1.Button2Click(Sender: TObject); begin if isemail(Edit1.Text) then ShowMessage('eMail-Adresse!') else Showmessage('Yanlis eMail-Adresse!'); end;