【GetAccountType】

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

复制代码