Changeset 287 for CoolTranslator/UCoolTranslator.pas

Timestamp:

Oct 17, 2011, 1:38:22 PM (13 years ago)

Author:

george

Message:

• Fixed: CoolTranslator opening files with non-ascii characters.

File:

• CoolTranslator/UCoolTranslator.pas (modified) (1 diff)

CoolTranslator/UCoolTranslator.pas

@@ -152 +152 @@
     //ShowMessage(ExtractFileDir(Application.ExeName) +
     //  DirectorySeparator + 'Languages' + ' ' + '*.' + LocaleShort + '.po');
-    FileList := FindAllFiles(ExtractFileDir(Application.ExeName) +
-      DirectorySeparator + 'Languages', '*.' + LocaleShort + '.po');
+    FileList := FindAllFiles(ExtractFileDir(UTF8Encode(Application.ExeName)) +
+      DirectorySeparator + FPOFilesFolder, '*.' + LocaleShort + '.po');
     for I := 0 to FileList.Count - 1 do begin
       FileName := FileList[I];