opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Rename local variable to what it stands for.

Browse Source
This commit is contained in:
Ansgar Becker
2013-03-03 17:04:12 +00:00
parent e60fb7a925
commit 981b746752
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
source/options.pas
View File

@@ -875,12 +875,12 @@ end;
procedure Toptionsform.InitLanguages;
var
AllLangCodes: TStringList;
AvailLangCodes: TStringList;
procedure AddLang(LangCode, LangName: String);
begin
LangCode := LowerCase(LangCode);
if AllLangCodes.IndexOf(LangCode) > -1 then
if AvailLangCodes.IndexOf(LangCode) > -1 then
FLanguages.Add(LangCode + FLanguages.NameValueSeparator + LangName);
end;
@@ -889,8 +889,8 @@ begin
// List taken from dxgettext/languagecodes.pas
FLanguages := TStringList.Create;
FLanguages.Add('' + FLanguages.NameValueSeparator + _('Auto detect'));
AllLangCodes := TStringList.Create;
DefaultInstance.GetListOfLanguages('default', AllLangCodes);
AvailLangCodes := TStringList.Create;
DefaultInstance.GetListOfLanguages('default', AvailLangCodes);
AddLang('aa', 'Afar');
AddLang('aa', 'Afar');
AddLang('ab', 'Abkhazian');
@@ -1085,7 +1085,7 @@ begin
AddLang('za', 'Zhuang');
AddLang('zh', 'Chinese');
AddLang('zu', 'Zulu');
AllLangCodes.Free;
AvailLangCodes.Free;
end;