Changeset 139 for trunk/Packages/Common

Timestamp:

Sep 9, 2022, 9:41:42 PM (2 years ago)

Author:

chronos

Message:

• Fixed: Better handle invalid not found pages including correct HTTP code.

Location:

trunk/Packages/Common

Files:

• UFormAbout.pas (modified) (2 diffs)
• UGenerics.pas (modified) (1 diff)

trunk/Packages/Common/UFormAbout.pas

@@ -20 +20 @@
     PanelButtons: TPanel;
     procedure ButtonHomePageClick(Sender: TObject);
-    procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
-  private
-    { private declarations }
   public
     AboutDialog: TObject; //TAboutDialog
@@ -77 +74 @@
 end;
 
-procedure TFormAbout.FormCreate(Sender: TObject);
-begin
-end;
-
 end.
 

trunk/Packages/Common/UGenerics.pas

@@ -43 +43 @@
   for I := 0 to Count - 1 do begin
     Result := Result + Items[I];
-    if I > 0 then Result := Result + Separator;
+    if I < Count - 1 then Result := Result + Separator;
   end;
 end;