Changeset 13 for trunk/USource.pas

Timestamp:

Dec 18, 2017, 10:13:15 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Build under Lazarus 1.8.0.

File:

• trunk/USource.pas (modified) (2 diffs)

trunk/USource.pas

@@ -53 +53 @@
 function TSource.GetDownloaded: Boolean;
 begin
-  Result := DirectoryExistsUTF8(GetPath);
+  Result := DirectoryExists(GetPath);
 end;
 
@@ -134 +134 @@
   ExistedSource: TSource;
 begin
-  if FileExistsUTF8(FileName) then
+  if FileExists(FileName) then
   try
     ReadXMLFile(Doc, UTF8Decode(FileName));