index ea1f23660237da8593209739dc0200d84287843f..3f7c5de42a034e21c7fe41ac61f3982481d031eb 100644 (file)
list := TStringList.Create;
list.Duplicates := dupIgnore;
list.Add(InSourceLanguage);
- if FindFirst(LangDir + DirectorySeparator + langfilename + '.*.lng', faAnyFile, info) = 0 then
+ if FindFirst(LangDir + DirectorySeparator + langfilename + '.*.lng', faReadOnly, info) = 0 then
begin
repeat
list.Add(Copy(ExtractFileNameWithoutExt(info.Name), Length(langfilename) + 2));