diff options
| -rw-r--r-- | UFileAssoc.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/UFileAssoc.pas b/UFileAssoc.pas index 923ecac..f08c1ed 100644 --- a/UFileAssoc.pas +++ b/UFileAssoc.pas @@ -168,7 +168,7 @@ var Ext, s: string; begin Result := nil; MaxFound := 0; - if (Pos('.', Filename) > 1) and (LastDelimiter('.', Filename) < Length(Filename)) then begin + if (Pos('.', Filename) > 0) and (LastDelimiter('.', Filename) < Length(Filename)) then begin Ext := WideUpperCase(Trim(Copy(Filename, Pos('.', Filename), Length(Filename) - Pos('.', Filename) + 1))); if PluginList.Count > 0 then for i := 0 to PluginList.Count - 1 do @@ -198,7 +198,7 @@ var Ext, s: string; begin Result := nil; MaxFound := 0; - if (Pos('.', Filename) > 1) and (LastDelimiter('.', Filename) < Length(Filename)) then begin + if (Pos('.', Filename) > 0) and (LastDelimiter('.', Filename) < Length(Filename)) then begin Ext := WideUpperCase(Trim(Copy(Filename, Pos('.', Filename), Length(Filename) - Pos('.', Filename) + 1))); if AssocList.Count > 0 then for i := 0 to AssocList.Count - 1 do |