بایگانی ماهیانه: اکتبر 2010

FUNCTION IsValidEmail(CONST Value: String): boolean;   FUNCTION CheckAllowed(CONST s: String): boolean;   VAR i: Integer;   BEGIN   Result:= False;   FOR i:= 1 TO Length(s) DO // illegal char in s -> no valid address   IF NOT (s[i] … ادامه‌ی خواندن→

 procedure CreateMSAccessDB(filename : String); var   DBEngine, Workspace: Variant; const   dbLangGeneral = ‘;LANGID=0x0409;CP=1252;COUNTRY=0’;   dbVersion30 = 32; begin   DBEngine := CreateOleObject(‘DAO.DBEngine’);    { DBEngine := CreateOleObject(‘DAO.DBEngine.35’); For DAO 3.5 }   Workspace := DBEngine.Workspaces[0];   try     Workspace.CreateDatabase(filename, … ادامه‌ی خواندن→