paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 05:01:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCLTranslator: simplified FindLocaleFileName function by removing GetLocaleFileName nested function from it (no functional changes)

Browse Source 
git-svn-id: trunk@61591 -
This commit is contained in:
maxim 2019-07-14 23:24:44 +00:00
parent 28f83647db
commit 4d435d832b
1 changed files with 127 additions and 133 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/lcltranslator.pas
View File

@ -123,10 +123,8 @@ begin
LazGetLanguageIDs(Lang, T);
end;
function FindLocaleFileName(LCExt: string; Lang: string; Dir: string; LocaleFileName: string): string;
function GetLocaleFileName(const LangID, LCExt: string; Dir: string; LocaleFileName: string): string;
var
function FindLocaleFileName(LCExt: string; LangID: string; Dir: string; LocaleFileName: string): string;
var
LangShortID: string;
AppDir,LCFileName,FullLCFileName: String;
absoluteDir: Boolean;
@ -139,7 +137,10 @@ function FindLocaleFileName(LCExt: string; Lang: string; Dir: string; LocaleFile
Result := LocaleFileName;
end;
begin
begin
Result := '';
FindLang(LangID);
DefaultLang := LangID;
AppDir := ExtractFilePath(ParamStrUTF8(0));
@ -299,13 +300,6 @@ function FindLocaleFileName(LCExt: string; Lang: string; Dir: string; LocaleFile
Result := '';
DefaultLang := '';
end;
begin
Result := '';
FindLang(Lang);
Result := GetLocaleFileName(Lang, LCExt, Dir, LocaleFileName);
end;
function GetIdentifierPath(Sender: TObject;