Code: Select all
Bill := {}
Bill["Country"] := "Canada"
Bill["City"] := "Toronto"
Bill["Profession"] := "Designer"
Karl := {}
Karl["Country"] := "UK"
Karl["City"] := "London"
Karl["Profession"] := "Manager"
Jane := {}
Jane["Country"] := "UK"
Jane["City"] := "London"
Jane["Profession"] := "Artist"
Customers := {}
Customers["Bill"] := Bill
Customers["Karl"] := Karl
GetCustomerCity(Customer)
{
Global Customers
Customers := Customers.Clone()
ExistingCustomersCity := Customers[Customer]["City"]
If (ExistingCustomersCity != "")
Return ExistingCustomersCity
NewCustomer := Customers[Customer] := Customer
Return Customers[NewCustomer]["City"]
}
MsgBox % GetCustomerCity("Bill") ; => Toronto
MsgBox % GetCustomerCity("Jane") ; => nothing