Changeset 25 for branches/lazarus/Common/USqlDatabase.pas

Timestamp:

Sep 8, 2010, 8:34:15 PM (14 years ago)

Author:

george

Message:

• Opraveno: Zobrazování jednotlivých stránek.
• Opraveno: Zobrazení výpisu historie sítě.

File:

• branches/lazarus/Common/USqlDatabase.pas (modified) (7 diffs)

branches/lazarus/Common/USqlDatabase.pas

@@ -2 +2 @@
 
 {$mode Delphi}{$H+}
-// Upraveno: 16.12.2009
+
+// Upraveno: 8.9.2010
 
 interface
 
 uses
-  SysUtils, Classes, Dialogs, mysql50, TypInfo;
+  SysUtils, Classes, Dialogs, mysql50, TypInfo, Contnrs, UStringListEx;
 
 type
-  EQueryError = Exception;
+  EQueryError = class(Exception);
 
   TClientCapabilities = (_CLIENT_LONG_PASSWORD, _CLIENT_FOUND_ROWS,
@@ -33 +34 @@
   end;
 
-  TDbRows = class(TList)
+  TDbRows = class(TObjectList)
   private
     function GetData(Index: Integer): TAssociativeArray;
@@ -85 +86 @@
   function MySQLFloatToStr(F: Real): string;
   function MySQLStrToFloat(S: string): Real;
+  function SQLToDateTime(Value: string): TDateTime;
+  function DateTimeToSQL(Value: TDateTime): string;
 
 implementation
@@ -110 +113 @@
 begin
   S := FloatToStr(F);
-  if Pos(',', S) > 0 then S[Pos(',',S)] := '.';
+  if Pos(',', S) > 0 then S[Pos(',', S)] := '.';
   Result := S;
 end;
@@ -116 +119 @@
 function MySQLStrToFloat(S: string): Real;
 begin
-  if Pos('.', S) > 0 then  S[Pos('.',S)] := ',';
+  if Pos('.', S) > 0 then S[Pos('.', S)] := ',';
   Result := StrToFloat(S);
+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]);
+    Result := EncodeDate(StrToInt(DateParts[0]), StrToInt(DateParts[1]),
+      StrToInt(DateParts[2]));
+    if Parts.Count > 1 then begin
+      TimeParts.Explode(':', Parts[1]);
+      Result := Result + EncodeTime(StrToInt(TimeParts[0]), StrToInt(TimeParts[1]),
+        StrToInt(TimeParts[2]), 0);
+    end;
+  finally
+    DateParts.Free;
+    TimeParts.Free;
+    Parts.Free;
+  end;
+end;
+
+function DateTimeToSQL(Value: TDateTime): string;
+begin
+  Result := FormatDateTime('yyyy-mm-dd hh.nn.ss', Value);
 end;
 
@@ -401 +436 @@
 
 destructor TDbRows.Destroy;
-var
-  I: Integer;
-begin
-  for I := 0 to Count - 1 do
-    Data[I].Free;
+begin
   inherited;
 end;
@@ -411 +442 @@
 function TDbRows.GetData(Index: Integer): TAssociativeArray;
 begin
-  Result := Items[Index];
+  Result := TAssociativeArray(Items[Index]);
 end;