If you have an email as a string value and want to extract only the domain (host) name from it, like in: "delphi.guide@about.com" - domain name = "about.com", you can use the next function:
~~~~~~~~~~~~~~~~~~~~~~~~~
//extract doman name from an email address
function EmailDomain(const email: string):string;
var
Pos_AT : integer;
begin
Pos_AT := Pos('@', email) ;
Result := Copy(email, Pos_AT + 1, Length(email) - Pos_AT)
end;
~~~~~~~~~~~~~~~~~~~~~~~~~
Delphi tips navigator:
» Installing the BDE (manually or using an install program)
« Setting up application wide hot key (keyboard short cut)
