is there a way to extract email addresses from HTML files, text documents
function IsEMail(EMail: String): Boolean;
ETpos:= pos("@", EMail);
if ETpos 1 then
if (pos(".", s) 1) and (pos(".", s) Result:= true else Result:= false;
procedure TForm1.Button1Click(Sender: TObject);
if isemail(Edit1.Text) then
A portal that has dedication and concentration in the development of computer programming and more
resource for help people such as open project, jobs, question & answer, additional tools, and many more.
Collection of various kinds of code programming language from desktop to web programming.