Changeset 13 for trunk/UDataTypes.pas

Timestamp:

Mar 17, 2015, 12:09:11 AM (9 years ago)

Author:

chronos

Message:

• Modified: Now records are loaded from SQL database using SQL query. The query is parsed also by XML database client to load records from XML file.
• Added: Packages Network and Synapse.

File:

• trunk/UDataTypes.pas (modified) (10 diffs)

trunk/UDataTypes.pas

@@ -15 +15 @@
     procedure Assign(Source: TValue); override;
     function GetString: string; override;
+    function SetString(Value: string): string; override;
   end;
 
@@ -23 +24 @@
     procedure Assign(Source: TValue); override;
     function GetString: string; override;
+    function SetString(Value: string): string; override;
   end;
 
@@ -31 +33 @@
     procedure Assign(Source: TValue); override;
     function GetString: string; override;
+    function SetString(Value: string): string; override;
   end;
 
@@ -39 +42 @@
     procedure Assign(Source: TValue); override;
     function GetString: string; override;
+    function SetString(Value: string): string; override;
   end;
 
@@ -47 +51 @@
     procedure Assign(Source: TValue); override;
     function GetString: string; override;
+    function SetString(Value: string): string; override;
   end;
 
@@ -129 +134 @@
 end;
 
+function TValueFloat.SetString(Value: string): string;
+begin
+  Self.Value := StrToFloat(Value);
+end;
+
 { TFieldBoolean }
 
@@ -188 +198 @@
 end;
 
+function TValueBoolean.SetString(Value: string): string;
+begin
+  Self.Value := StrToBool(Value);
+end;
+
 { TValueInteger }
 
@@ -199 +214 @@
 begin
   Result := IntToStr(Value);
+end;
+
+function TValueInteger.SetString(Value: string): string;
+begin
+  Self.Value := StrToInt(Value);
 end;
 
@@ -229 +249 @@
 end;
 
+function TValueDateTime.SetString(Value: string): string;
+begin
+  Self.Value := StrToDateTime(Value);
+end;
+
 { TValueString }
 
@@ -242 +267 @@
 end;
 
+function TValueString.SetString(Value: string): string;
+begin
+  Self.Value := Value;
+end;
+
 { TFieldString }