pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-12 22:07:39 +02:00
Code Issues Actions Releases Activity

Removed unnecessary PChar casts

Browse Source
This commit is contained in:
Salvador Diaz Fau
2017-04-27 08:33:22 +02:00
parent ca993f6003
commit 24b745dbc3
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
source/uCEFMiscFunctions.pas
View File

@ -612,7 +612,7 @@ begin
if DirectoryExists(aResourcesDirPath) then
begin
TempDir := IncludeTrailingPathDelimiter(aResourcesDirPath);
if CustomPathIsRelative(PChar(TempDir)) then TempDir := ExtractFilePath(ParamStr(0)) + TempDir;
if CustomPathIsRelative(TempDir) then TempDir := ExtractFilePath(ParamStr(0)) + TempDir;
end
else
exit;
@ -646,7 +646,7 @@ begin
if DirectoryExists(aFrameworkDirPath) then
begin
TempDir := IncludeTrailingPathDelimiter(aFrameworkDirPath);
if CustomPathIsRelative(PChar(TempDir)) then TempDir := ExtractFilePath(ParamStr(0)) + TempDir;
if CustomPathIsRelative(TempDir) then TempDir := ExtractFilePath(ParamStr(0)) + TempDir;
end
else
exit;