diff --git a/src/application/ljv.application.version.pas b/src/application/ljv.application.version.pas index 5d5a53d..af30793 100644 --- a/src/application/ljv.application.version.pas +++ b/src/application/ljv.application.version.pas @@ -27,11 +27,11 @@ interface const - cVersion = '0.1.8.31'; + cVersion = '0.1.8.32'; cVersionMajor = 0; cVersionMinor = 1; cVersionRevision = 8; - cVersionBuild = 31; + cVersionBuild = 32; implementation diff --git a/src/forms/ljv.forms.main.pas b/src/forms/ljv.forms.main.pas index 779bdfa..0fb7f93 100644 --- a/src/forms/ljv.forms.main.pas +++ b/src/forms/ljv.forms.main.pas @@ -543,6 +543,8 @@ function TfrmMain.FormatBytes(ABytes: Int64): String; procedure TfrmMain.AddFile(const AFilename: String); var len: Integer; + isDuplicate: Boolean; + filename: String; begin if Pos('*', AFilename) > 0 then begin @@ -552,9 +554,21 @@ procedure TfrmMain.AddFile(const AFilename: String); begin if FileExists(AFilename) then begin - len:= Length(FFileList); - SetLength(FFileList, len + 1); - FFileList[len]:= ExpandFileName(AFilename); + isDuplicate:= False; + for filename in FFileList do + begin + if filename = AFilename then + begin + isDuplicate:= True; + break; + end; + end; + if not isDuplicate then + begin + len:= Length(FFileList); + SetLength(FFileList, len + 1); + FFileList[len]:= ExpandFileName(AFilename); + end; end; end; end; diff --git a/src/lazJSONViewer.lpi b/src/lazJSONViewer.lpi index e9cc912..fefb56e 100644 --- a/src/lazJSONViewer.lpi +++ b/src/lazJSONViewer.lpi @@ -24,7 +24,7 @@ - +