eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

changes

This commit is contained in:
mysticbbs 2013-09-20 10:21:19 -04:00
parent 3ccd4786f8
commit d48ebab82e
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
mdl/m_fileio.pas
View File

@ -397,12 +397,13 @@ Function JustFileName (Str: String) : String;
Var Var
Temp : Byte; Temp : Byte;
Begin Begin
Temp := Pos ('.', Str);
If Temp > 0 Then
Delete (Str, Temp, Ord(Str[0]));
Result := Str; Result := Str;
For Temp := Length(Result) DownTo 1 Do
If Result[Temp] = '.' Then Begin
Delete (Result, Temp, 255);
Break;
End;
End; End;
Function JustFileExt (Str: String) : String; Function JustFileExt (Str: String) : String;