Changeset 162 for trunk/Packages/Common/Translator.pas

Timestamp:

Jun 30, 2023, 10:01:24 PM (11 months ago)

Author:

chronos

Message:

• Modified: Updated Common package.

File:

• trunk/Packages/Common/Translator.pas (modified) (2 diffs)

trunk/Packages/Common/Translator.pas

@@ -173 +173 @@
 begin
   FPoFiles.Clear;
-  if Assigned(FLanguage) then
-  try
+  if Assigned(FLanguage) then begin
     LocaleShort := GetLocaleShort;
-    //ShowMessage(ExtractFileDir(Application.ExeName) +
-    //  DirectorySeparator + 'Languages' + ' ' + '*.' + LocaleShort + '.po');
     SearchMask := '*';
     if LocaleShort <> '' then SearchMask := SearchMask + '.' + LocaleShort;
@@ -184 +181 @@
     for J := 0 to LangDirs.Count - 1 do begin
       FileList := FindAllFiles(LangDirs[J], SearchMask);
-      for I := 0 to FileList.Count - 1 do begin
-        FileName := FileList[I];
-        //FileName := FindLocaleFileName('.po');
-        if FileExists(FileName) and (
-        ((LocaleShort = '') and (Pos('.', FileName) = Pos(PoExt, FileName))) or
-        (LocaleShort <> '')) then FPoFiles.Add(TPOFile.Create(FileName));
+      try
+        for I := 0 to FileList.Count - 1 do begin
+          FileName := FileList[I];
+          //FileName := FindLocaleFileName('.po');
+           if FileExists(FileName) and (
+          ((LocaleShort = '') and (Pos('.', FileName) = Pos(PoExt, FileName))) or
+          (LocaleShort <> '')) then FPoFiles.Add(TPOFile.Create(FileName));
+        end;
+      finally
+        FileList.Free;
       end;
     end;
     LangDirs.Free;
-  finally
-    FileList.Free;
   end;
 end;