update to 0.7.3

This commit is contained in:
Razor12911
2023-06-30 05:02:05 +02:00
parent 7e8bbfcd86
commit 30ce6f00fc
94 changed files with 43027 additions and 858 deletions

View File

@@ -193,7 +193,7 @@ begin
if FileExists(Input1) then
BaseDir := ExtractFilePath(TPath.GetFullPath(Input1))
else if DirectoryExists(Input1) then
BaseDir := IncludeTrailingBackSlash(TPath.GetFullPath(Input1))
BaseDir := IncludeTrailingPathDelimiter(TPath.GetFullPath(Input1))
else
BaseDir := ExtractFilePath(TPath.GetFullPath(Input1));
LList := GetFileList([Input1], True);
@@ -305,7 +305,7 @@ begin
if FileExists(Input2) then
BaseDir := ExtractFilePath(TPath.GetFullPath(Input2))
else if DirectoryExists(Input2) then
BaseDir := IncludeTrailingBackSlash(TPath.GetFullPath(Input2))
BaseDir := IncludeTrailingPathDelimiter(TPath.GetFullPath(Input2))
else
BaseDir := ExtractFilePath(TPath.GetFullPath(Input2));
LList := GetFileList([Input2], True);