paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 13:37:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

Educationlaz: Use FileExists instead of FileExistsUTF8. Fix compilation.

Browse Source 
git-svn-id: trunk@52239 -
This commit is contained in:
juha 2016-04-23 12:11:48 +00:00
parent 23712d9f1c
commit 5238eb9493
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/education/eduoptions.pas
View File

@ -19,7 +19,7 @@ interface
uses
Classes, SysUtils, LCLProc, LazConfigStorage, Controls, Forms, BaseIDEIntf,
FileUtil, LazIDEIntf, IDEOptionsIntf, ProjectIntf;
LazFileUtils, LazIDEIntf, IDEOptionsIntf, ProjectIntf;
resourcestring
EduRSEducation = 'Education';
@ -412,7 +412,7 @@ var
FullFilename: String;
begin
FullFilename:=GetFullFilename;
if FileExistsUTF8(FullFilename)
if FileExists(FullFilename)
and (FLastSavedChangeStep=TEduOptsRootNode(Root).ChangeStep) then
Result:=mrOK;
Result:=SaveToFile(Filename);