refactor: Better date/time formatting.

ObjectPascal-Community · Dec 9, 2024 · 6c1d650 · 6c1d650
1 parent 472bb0b
commit 6c1d650
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 6 deletions.
diff --git a/src/database/irclogbot.database.pas b/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;

diff --git a/src/paslogbot.lpr b/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]));