Add helper method to return license name followed by URL

Author: delphidabbler

Src/DB.UMetaData.pas

@@ -125,6 +125,11 @@   TDBLicenseInfo = record
     property URL: string read fURL;
     ///  <summary>Full text of license.</summary>
     property Text: string read fText;
+    ///  <summary>Returns a string containing license name followed by any URL
+    ///  in parentheses.</summary>
+    ///  <remarks>If no URL is available then only the license name is returned.
+    ///  </remarks>
+    function NameWithURL: string;
   end;
 
   ///  <summary>Record providing informaton about the main database copyright.
@@ -938,6 +943,13 @@ constructor TDBLicenseInfo.Create(const AName, ASPDX, AURL, AText: string);
   fText := AText;
 end;
 
+function TDBLicenseInfo.NameWithURL: string;
+begin
+  Result := fName;
+  if fURL <> '' then
+    Result := Result + ' (' + fURL + ')';
+end;
+
 { TDBCopyrightInfo }
 
 constructor TDBCopyrightInfo.Create(const ADate, AHolder, AHolderURL: string);