Now strips lowchars from filename/basename

This commit is contained in:
mysticbbs 2012-03-04 16:59:50 -05:00
parent 01bbcbd37d
commit b4b9678212
1 changed files with 2 additions and 2 deletions

View File

@ -46,8 +46,8 @@ Begin
If (Str[1] = ';') or (Str = '') Then Continue;
TagName := strWordGet(1, Str, ' ');
BaseName := strStripB(Copy(Str, Pos(' ', Str), 255), ' ');
TagName := strStripLow(strWordGet(1, Str, ' '));
BaseName := strStripLow(strStripB(Copy(Str, Pos(' ', Str), 255), ' '));
ProcessStatus (BaseName);