Free for PREMIUM members
function EmailInFile(const AFileName, AEmail: string): Boolean;
FileList := TStringList.Create;
Result := Pos(LowerCase(Trim(AEmail)), LowerCase(FileList.Text)) > 0;
//call it like this
if EmailInFile('f:\special.txt', DBemail.text) then
MakeSpecialMember1.enabled := false
MakeSpecialMember1.enabled := true ;
Open in new window
Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.