refactor: lazarus 1.4 -> 1.6

Upgrade the project to lazarus 1.6 with FPC 3.0

Fix compilation error:
DateTimeStr: UTF8String -> String

Fix compilation error:
add extra variable TrackerStrLoop

Fix deprecated function use in FileUtil
switch to LazFileUtils

Author: GerryFerdinandus

source/code/main.lfm

@@ -16,7 +16,7 @@ object FormTrackerModify: TFormTrackerModify
   OnDropFiles = FormDropFiles
   OnShow = FormShow
   Position = poScreenCenter
-  LCLVersion = '1.4.4.0'
+  LCLVersion = '1.6.0.4'
   object PageControl: TPageControl
     Left = 0
     Height = 587

source/code/main.pas

@@ -35,7 +35,7 @@
 interface
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
   ExtCtrls, CheckLst, DecodeTorrent, LCLType, ActnList, Menus, ComCtrls,
   Grids, controlergridtorrentdata;
 
@@ -246,7 +246,7 @@   TFormTrackerModify = class(TForm)
 
 implementation
 
-uses LCLIntf, lazutf8;
+uses LCLIntf, lazutf8, LazFileUtils;
 
 const
   RECOMENDED_TRACKERS: array[0..2] of UTF8String =
@@ -1055,17 +1055,17 @@ function TFormTrackerModify.ValidTrackerURL(const TrackerURL: UTF8String): boole
 
 function TFormTrackerModify.CopyUserInputNewTrackersToList: boolean;
 var
-  TrackerStr: UTF8String;
+  TrackerStrLoop, TrackerStr: UTF8String;
 begin
   {
    Called after 'update torrent' is selected.
    All the user entery from Memo text field will be add to FTrackerAddedByUserList.
   }
   FTrackerAddedByUserList.Clear;
 
-  for TrackerStr in MemoNewTrackers.Lines do
+  for TrackerStrLoop in MemoNewTrackers.Lines do
   begin
-    TrackerStr := UTF8trim(TrackerStr);
+    TrackerStr := UTF8trim(TrackerStrLoop);
 
     //Skip empty line
     if TrackerStr = '' then
@@ -1813,7 +1813,8 @@ procedure TFormTrackerModify.ViewUpdateBegin(ClearView: boolean);
 procedure TFormTrackerModify.ViewUpdateOneTorrentFileDecoded;
 var
   RowIndex, CountFiles: integer;
-  TorrentFileNameStr, TrackerStr, DateTimeStr, PrivateStr: UTF8String;
+  TorrentFileNameStr, TrackerStr, PrivateStr: UTF8String;
+  DateTimeStr: String;
   TreeNodeTorrent, TreeNodeFiles, TreeNodeTrackers, TreeNodeInfo: TTreeNode;
 begin
   //Called after loading torrent file.

source/project/tracker_editor/trackereditor.lpi

@@ -37,7 +37,7 @@
         <PackageName Value="LCL"/>
       </Item1>
     </RequiredPackages>
-    <Units Count="65">
+    <Units Count="67">
       <Unit0>
         <Filename Value="trackereditor.lpr"/>
         <IsPartOfProject Value="True"/>
@@ -211,9 +211,10 @@
       <Unit26>
         <Filename Value="C:\lazarus\components\lazutils\fileutil.pas"/>
         <UnitName Value="FileUtil"/>
-        <TopLine Value="151"/>
-        <CursorPos X="10" Y="189"/>
-        <UsageCount Value="9"/>
+        <EditorIndex Value="2"/>
+        <CursorPos X="116" Y="76"/>
+        <UsageCount Value="10"/>
+        <Loaded Value="True"/>
       </Unit26>
       <Unit27>
         <Filename Value="C:\lazarus\fpc\2.6.2\source\rtl\inc\ustringh.inc"/>
@@ -434,11 +435,11 @@
       <Unit61>
         <Filename Value="..\..\code\bencode.pas"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="-1"/>
-        <WindowIndex Value="-1"/>
-        <TopLine Value="-1"/>
-        <CursorPos X="-1" Y="-1"/>
+        <UnitName Value="BEncode"/>
+        <EditorIndex Value="4"/>
+        <CursorPos X="42" Y="35"/>
         <UsageCount Value="20"/>
+        <Loaded Value="True"/>
       </Unit61>
       <Unit62>
         <Filename Value="..\..\code\controlergridtorrentdata.pas"/>
@@ -452,23 +453,41 @@
       <Unit63>
         <Filename Value="..\..\code\decodetorrent.pas"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="-1"/>
-        <WindowIndex Value="-1"/>
-        <TopLine Value="-1"/>
-        <CursorPos X="-1" Y="-1"/>
+        <UnitName Value="DecodeTorrent"/>
+        <EditorIndex Value="3"/>
+        <TopLine Value="591"/>
+        <CursorPos X="48" Y="628"/>
         <UsageCount Value="20"/>
+        <Loaded Value="True"/>
       </Unit63>
       <Unit64>
         <Filename Value="..\..\code\main.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="FormTrackerModify"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <IsVisibleTab Value="True"/>
+        <TopLine Value="63"/>
+        <CursorPos X="82" Y="140"/>
         <UsageCount Value="20"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit64>
+      <Unit65>
+        <Filename Value="C:\lazarus\components\lazutils\lazfileutils.pas"/>
+        <UnitName Value="LazFileUtils"/>
+        <EditorIndex Value="1"/>
+        <UsageCount Value="10"/>
+        <Loaded Value="True"/>
+      </Unit65>
+      <Unit66>
+        <Filename Value="C:\lazarus\fpc\3.0.0\source\rtl\inc\systemh.inc"/>
+        <IsVisibleTab Value="True"/>
+        <EditorIndex Value="5"/>
+        <TopLine Value="387"/>
+        <CursorPos X="3" Y="429"/>
+        <UsageCount Value="10"/>
+        <Loaded Value="True"/>
+      </Unit66>
     </Units>
   </ProjectOptions>
   <CompilerOptions>