paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-11 02:48:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, LCLTranslator: reduced scope of variable, hint from Werner, bug #34181

Browse Source 
git-svn-id: trunk@58791 -
This commit is contained in:
maxim 2018-08-27 23:19:49 +00:00
parent 1805732402
commit a16d3e7cf9
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/lcltranslator.pas
View File

@ -310,9 +310,6 @@ begin
Result := LowerCase(Result); // GetText requires same case as in .po file, which is lowercase
end;
var
lcfn: string;
{ TUpdateTranslator }
procedure TUpdateTranslator.IntUpdateTranslation(AnInstance: TPersistent; Level: integer = 0);
@ -510,7 +507,7 @@ procedure SetDefaultLang(Lang: string; Dir: string = ''; ForceUpdate: boolean =
}
var
Dot1: integer;
LCLPath: string;
LCLPath, lcfn: string;
LocalTranslator: TUpdateTranslator;
i: integer;