forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

prevent dup in imports list

This commit is contained in:
Basile Burg 2016-06-18 09:06:48 +02:00
parent 4bb368d8a2
commit 17a49c92a9
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ce_dlang.pas
View File

@ -1039,7 +1039,7 @@ begin
itm := '' itm := ''
else if (tok^.Data = ';') or (tok^.Data = ':') or (tok^.Data = ',') then else if (tok^.Data = ';') or (tok^.Data = ':') or (tok^.Data = ',') then
begin begin
if length(itm) <> 0 then if (length(itm) <> 0) and (imports.IndexOf(itm) = -1) then
imports.Add(itm); imports.Add(itm);
itm := ''; itm := '';
if (tok^.Data = ';') or (tok^.Data = ':') then if (tok^.Data = ';') or (tok^.Data = ':') then

2
src/ce_editor.lfm
View File

@ -136,7 +136,7 @@ inherited CEEditorWidget: TCEEditorWidget
OnClick = MenuItem5Click OnClick = MenuItem5Click
end end
object MenuItem8: TMenuItem object MenuItem8: TMenuItem
Caption = 'Save import to file...' Caption = 'Save imports to file...'
OnClick = MenuItem8Click OnClick = MenuItem8Click
end end
end end