Changeset 45 for trunk/UConfigSample.pas

Timestamp:

Dec 31, 2010, 9:56:34 PM (14 years ago)

Author:

george

Message:

• Přidáno: Jednotka UWebObjects, která obsahuje specifické grafické komponenty pro danou aplikaci.
• Upraveno: Konfigurace aplikace předělána z globálních konstant na proměnnou Config strukturovaného typu record.

File:

• trunk/UConfigSample.pas (modified) (1 diff)

trunk/UConfigSample.pas

@@ -8 +8 @@
   Classes, SysUtils;
 
-const
-  WebServerAddress: string = 'http://localhost/';
-  DatabaseHostname: string = 'localhost';
-  DatabaseDatabase: string = 'web';
-  DatabaseUserName: string = 'user';
-  DatabasePassword: string = 'password';
-  ConfigFormatHTML: Boolean = False;
-  ConfigStyle: string = 'Basic';
-  ConfigBaseURL: string = 'http://localhost';
+type
+  TConfig = record
+    WebServerAddress: string;
+    DatabaseHostname: string;
+    DatabaseDatabase: string;
+    DatabaseUserName: string;
+    DatabasePassword: string;
+    FormatHTML: Boolean;
+    Style: string;
+    BaseURL: string;
+    ShowException: Boolean;
+  end;
+
+var
+  Config: TConfig;
+
 
 implementation
 
+initialization
+
+with Config do begin
+  WebServerAddress := 'http://localhost/';
+  DatabaseHostname := 'localhost';
+  DatabaseDatabase := 'web';
+  DatabaseUserName := 'user';
+  DatabasePassword := 'password';
+  FormatHTML := False;
+  Style := 'Basic';
+  BaseURL := 'http://localhost';
+  ShowException := False;
+end;
+
 end.