【GetAccountStatus】

1. Input: _strAccountID(StringSimple);
   
2. 
   
3. // Account statuses returned by TS (Easylanguage) are specifically for TS
   
4. // This function assumes that if the specified account exists - it's active
   
5. 
   
6. begin
   
7. 
   
8. Alert("This function's implementation is different from EasyLanguage's");
   
9. GetAccountStatus = 0; // = asInvalid
   
10. 
    
11. for value1 = 1 to tm_accounts_count begin
    
12.         if         _strAccountID = tm_account_str_value(value1, 2000) then begin
    
13.                 GetAccountStatus = 1; // = asActive
    
14.                 break;
    
15.         end;
    
16. end;
    
17. 
    
18. end

复制代码