diff options
| author | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2008-08-23 22:28:00 +0200 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2008-08-23 22:28:00 +0200 |
| commit | 182fe0717f8e7fefd1e5c1eb42968fd29e15156f (patch) | |
| tree | b7351629ca81d0593e705f646b4c8da99d4e7112 | |
| parent | 1a693cd2a62e228a3c255d741c10b68306886b73 (diff) | |
| download | tuxcmd-182fe0717f8e7fefd1e5c1eb42968fd29e15156f.tar.xz | |
Fix filetype recognition for dot files
| -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 |