Persona/tim2view
3
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Multi-thread scan improvement;

Browse Source 
Some crashes fixed;
This commit is contained in:
meffi@lab313.ru
2014-02-19 08:48:59 +00:00
parent 20f1dbf7ce
commit 057405ebfe
5 changed files with 166 additions and 162 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
units/uCommon.pas
View File

@@ -30,7 +30,7 @@ function GetStartDir: string;
function GetFileSizeAPI(const FileName: string): Int64;
function CheckFileExists(const FileName: string): boolean;
// function cHex2Int( const Value : string) : Integer;
function ExtractFileNameWOext(const Path: string): string;
function ExtractJustName(const Path: string): string;
procedure Text2Clipboard(const S: string);
function Min(A, B: Integer): Integer;
function Max(A, B: Integer): Integer;
@@ -61,7 +61,7 @@ begin
Clipboard.AsText := S;
end;
function ExtractFileNameWOext(const Path: string): string;
function ExtractJustName(const Path: string): string;
begin
Result := ExtractFileName(Path);
Result := Copy(Result, 1, Length(Result) - Length(ExtractFileExt(Result)));