Changeset 16 for trunk/Packages

Timestamp:

Nov 15, 2012, 2:01:43 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Vkládání, úprava a mazání položek jsou nyní funkční.

Location:

trunk/Packages

Files:

• CoolWeb/Persistence/USqlDatabase.pas (modified) (2 diffs)
• TEditExtensions (added)
• TEditExtensions/TEditExtensions.lpk (added)
• TEditExtensions/TEditExtensions.pas (added)
• TEditExtensions/UIPv4Edit.pas (added)
• TEditExtensions/UTimeEdit.pas (added)

trunk/Packages/CoolWeb/Persistence/USqlDatabase.pas

@@ -92 +92 @@
   function SQLToTime(Value: string): TDateTime;
   function DateTimeToSQL(Value: TDateTime): string;
+  function TimeToSQL(Value: TDateTime): string;
+  function DateToSQL(Value: TDateTime): string;
 
 procedure Register;
@@ -176 +178 @@
 end;
 
+function TimeToSQL(Value: TDateTime): string;
+begin
+  Result := FormatDateTime('hh.nn.ss', Value);
+end;
+
+function DateToSQL(Value: TDateTime): string;
+begin
+  Result := FormatDateTime('yyyy-mm-dd', Value);
+end;
+
 function SQLToTime(Value: string): TDateTime;
 var