* fixed missing function result initialisation in

    TFPMimeTypes.GetMimeExtensions() and TFPMimeTypes.GetMimeType()
    (mantis #25003)

git-svn-id: trunk@26145 -

packages/fcl-base/src/fpmimetypes.pp

@@ -266,7 +266,9 @@ Var
 begin
   T:=FindMimeByType(AMimeType);
   if Assigned(T) then
-    Result:=T.Extensions;
+    Result:=T.Extensions
+  else
+    Result:='';
 end;
 
 function TFPMimeTypes.GetMimeType(const AExtension: String): String;
@@ -276,7 +278,9 @@ Var
 begin
   T:=FindMimeByExt(AExtension);
   if Assigned(T) then
-    Result:=T.MimeType;
+    Result:=T.MimeType
+  else
+    Result:='';
 end;
 
 function TFPMimeTypes.GetKnownMimeTypes(AList: TStrings): Integer;