From 182fe0717f8e7fefd1e5c1eb42968fd29e15156f Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Sat, 23 Aug 2008 22:28:00 +0200 Subject: Fix filetype recognition for dot files --- UFileAssoc.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'UFileAssoc.pas') 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 -- cgit v1.2.3