diff options
| -rw-r--r-- | src/corelib/fpg_utils.pas | 2 | ||||
| -rw-r--r-- | src/corelib/gdi/fpg_utils_impl.inc | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/corelib/fpg_utils.pas b/src/corelib/fpg_utils.pas index 43f73028..107fb262 100644 --- a/src/corelib/fpg_utils.pas +++ b/src/corelib/fpg_utils.pas @@ -192,7 +192,7 @@ begin break; until fpgFindNext(FileInfo) <> 0; finally - FindClose(FileInfo); + SysUtils.FindClose(FileInfo); end; end; end; diff --git a/src/corelib/gdi/fpg_utils_impl.inc b/src/corelib/gdi/fpg_utils_impl.inc index 08a3c3ad..e5125312 100644 --- a/src/corelib/gdi/fpg_utils_impl.inc +++ b/src/corelib/gdi/fpg_utils_impl.inc @@ -34,7 +34,7 @@ var begin // Don't assign the widestring to TSearchRec.name because it is of type // string, which will generate a conversion to the system encoding - Str := UTF8Decode(Filename); + Str := UTF8Decode(AFilename); FindHandle:=Windows.FindFirstFileW(PWideChar(Str), FindData); if FindHandle=Windows.Invalid_Handle_value then begin |