refactor: Better date/time formatting.

Author: gcarreno

src/database/irclogbot.database.pas

@@ -90,7 +90,6 @@ procedure TDatabase.Insert(ANickName, AChannel, AMessage: String);
 
 function TDatabase.Get(ACount: Integer): TStringList;
 var
-  timestamp: TDateTime;
   date, channel, nick, message: String;
 begin
   Result:= TStringList.Create;
@@ -109,11 +108,7 @@ function TDatabase.Get(ACount: Integer): TStringList;
         begin
           FQuery.First;
           repeat
-            timestamp:= FQuery.FieldByName('timestamp').AsDateTime;
-            date:= FormatDateTime(
-              DefaultFormatSettings.ShortDateFormat + ' ' + DefaultFormatSettings.LongTimeFormat,
-              timestamp
-            );
+            date:= FQuery.FieldByName('timestamp').AsString;
             channel:= FQuery.FieldByName('channel').AsString;
             nick:= FQuery.FieldByName('nick').AsString;
             message:= FQuery.FieldByName('message').AsString;

src/paslogbot.lpr

@@ -132,6 +132,7 @@ procedure TPasLogBot.DoRun;
   //debug('Short Date: ' + DefaultFormatSettings.ShortDateFormat);
   //debug('Short Time: ' + DefaultFormatSettings.ShortTimeFormat);
   //debug('Date Sep: ' + DefaultFormatSettings.DateSeparator);
+  debug('Setting Date and Time formats');
   DefaultFormatSettings.ShortDateFormat:= 'yyyy/mm/dd';
   DefaultFormatSettings.DateSeparator:= '/';
   debug(Format('Attempting to read config from: "%s"...', [FConfigFile]));