Subversion Repositories DevTools

Rev

Rev 2218 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2218 Rev 2222
Line 25... Line 25...
25 
        registry = new TRegistry();
 25 
        registry = new TRegistry();
26 
        registry->RootKey = HKEY_CURRENT_USER;
 26 
        registry->RootKey = HKEY_CURRENT_USER;
27 
 
 27 
 
28 
        // True because we want to create it if it doesn't exist
 28 
        // True because we want to create it if it doesn't exist
29 
        registry->OpenKey("Software\\ERG\\TxnTestManager", true);
 29 
        registry->OpenKey("Software\\ERG\\TxnTestManager", true);
30 
        AnsiString  last_user = registry->ReadString("LastUser");
 30 
		AnsiString  last_user = registry->ReadString("LastUser");
- 
 
 31 
		AnsiString  database = registry->ReadString("Database");
31 
 
 32 
 
32 
        if (last_user.IsEmpty())
 33 
		if (last_user.IsEmpty())
33 
        {
 34 
		{
34 
        	last_user = "integration";
 35 
			last_user = "integration";
35 
        }
 36 
		}
36 
 
 37 
 
- 
 
 38 
		if (database.IsEmpty())
- 
 
 39 
		{
- 
 
 40 
			database = "REPOS";
- 
 
 41 
		}
- 
 
 42 
 
37 
        UsernameEdit->Text = last_user;
 43 
		UsernameEdit->Text = last_user;
- 
 
 44 
		DatabaseEdit->Text = database;
38 
        PasswordEdit->SetFocus();
 45 
		PasswordEdit->SetFocus();
39 
    }
 46 
	}
40 
    __finally
 47 
    __finally
41 
    {
 48 
    {
42 
        delete registry;
 49 
        delete registry;
43 
    }
 50 
    }
44 
}
 51 
}
Line 51... Line 58...
51 
    {
 58 
    {
52 
        registry = new TRegistry();
 59 
        registry = new TRegistry();
53 
        registry->RootKey = HKEY_CURRENT_USER;
 60 
        registry->RootKey = HKEY_CURRENT_USER;
54 
 
 61 
 
55 
        // True because we want to create it if it doesn't exist
 62 
        // True because we want to create it if it doesn't exist
56 
        registry->OpenKey("Software\\ERG\\TxnTestManager", true);
 63 
		registry->OpenKey("Software\\ERG\\TxnTestManager", true);
57 
        registry->WriteString("LastUser", UsernameEdit->Text);
 64 
		registry->WriteString("LastUser", UsernameEdit->Text);
- 
 
 65 
		registry->WriteString("Database", DatabaseEdit->Text);
58 
    }
 66 
	}
59 
    __finally
 67 
	__finally
60 
    {
 68 
    {
61 
        delete registry;
 69 
        delete registry;
62 
    }
 70 
    }
63 
}
 71 
}
64 
//---------------------------------------------------------------------------
 72 
//---------------------------------------------------------------------------