Changeset 108 for trunk

Timestamp:

May 6, 2019, 1:41:36 PM (5 years ago)

Author:

chronos

Message:

• Modified: Do not use old UTF8 functions variants.

Location:

trunk

Files:

• Forms/UFormMain.pas (modified) (1 diff)
• UTarget.pas (modified) (2 diffs)

trunk/Forms/UFormMain.pas

@@ -666 +666 @@
 procedure TFormMain.AProjectSaveExecute(Sender: TObject);
 begin
-  if Core.Project.Modified and FileExistsUTF8(Core.Project.FileName) then begin
+  if Core.Project.Modified and FileExists(Core.Project.FileName) then begin
     FormSourceCode.SynEditSource.Lines.SaveToFile(Core.Project.FileName);
     Core.Project.Modified := False;

trunk/UTarget.pas

@@ -420 +420 @@
   end;
   if CompilerPath <> '' then begin;
-    if FileExistsUTF8(CompilerPath) then
+    if FileExists(CompilerPath) then
     try
       Process := TProcess.Create(nil);
@@ -457 +457 @@
     'compiled' + DirectorySeparator + Name + DirectorySeparator +
     ExtractFileNameOnly(ProjectFileName) + RunExtension;
-  if not FileExistsUTF8(ExecutorPath) then
+  if not FileExists(ExecutorPath) then
     raise Exception.Create(Format(SExecutorNotFound, [ExecutorPath]));
   if FileExists(CompiledFile) then