ucommon.pas

@@ -3,7 +3,7 @@ unit ucommon;
 interface
 
 const
-  cProgramName = 'Tim2View SVN.r62 by [Lab 313] (for ' +
+  cProgramName = 'Tim2View SVN.r63 by [Lab 313] (for ' +
   {$IFDEF Linux}'Linux' + {$IFEND}
   {$IFDEF Darwin}'Mac OS X' + {$IFEND}
   {$IFDEF Windows}'Windows' + {$IFEND}
@@ -29,6 +29,7 @@ type
   TBytesArray = array [0 .. cMaxFileSize - 1] of byte;
   PBytesArray = ^TBytesArray;
 
+function ExtractJustName(const Path: string): string;
 function Min(A, B: Integer): Integer;
 function Max(A, B: Integer): Integer;
 
@@ -52,4 +53,10 @@ begin
     Result := B;
 end;
 
+function ExtractJustName(const Path: string): string;
+begin
+  Result := ExtractFileName(Path);
+  Result := Copy(Result, 1, Length(Result) - Length(ExtractFileExt(Result)));
+end;
+
 end.