Changeset 40 for trunk/Common/USqlDatabase.pas

Timestamp:

Nov 17, 2010, 7:38:07 PM (14 years ago)

Author:

george

Message:

• Upraveno: Třída TStringListEx nahrazena specializovanou TListString.

File:

• trunk/Common/USqlDatabase.pas (modified) (2 diffs)

trunk/Common/USqlDatabase.pas

@@ -8 +8 @@
 
 uses
-  SysUtils, Classes, Dialogs, mysql50, TypInfo, UStringListEx,
-  ListObject, DictionaryStringString;
+  SysUtils, Classes, Dialogs, mysql50, TypInfo, SpecializedObjectList,
+  SpecializedDictionary, SpecializedList;
 
 type
@@ -113 +113 @@
 end;
 
+function StrToStr(Value: string): string;
+begin
+  Result := Value;
+end;
+
 function SQLToDateTime(Value: string): TDateTime;
 var
-  Parts: TStringListEx;
-  DateParts: TStringListEx;
-  TimeParts: TStringListEx;
-begin
-  try
-    Parts := TStringListEx.Create;
-    DateParts := TStringListEx.Create;
-    TimeParts := TStringListEx.Create;
-
-    Parts.Explode(' ', Value);
-    DateParts.Explode('-', Parts[0]);
+  Parts: TListString;
+  DateParts: TListString;
+  TimeParts: TListString;
+begin
+  try
+    Parts := TListString.Create;
+    DateParts := TListString.Create;
+    TimeParts := TListString.Create;
+
+    Parts.Explode(Value, ' ', StrToStr);
+    DateParts.Explode(Parts[0], '-', StrToStr);
     Result := EncodeDate(StrToInt(DateParts[0]), StrToInt(DateParts[1]),
       StrToInt(DateParts[2]));
     if Parts.Count > 1 then begin
-      TimeParts.Explode(':', Parts[1]);
+      TimeParts.Explode(Parts[1], ':', StrToStr);
       Result := Result + EncodeTime(StrToInt(TimeParts[0]), StrToInt(TimeParts[1]),
         StrToInt(TimeParts[2]), 0);