From 741e1499ed55e20c136298ced705dcbb59915117 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Wed, 23 Oct 2024 21:22:11 +0200 Subject: UCore: Code cleanup --- UCore.pas | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'UCore.pas') diff --git a/UCore.pas b/UCore.pas index 9059371..1345c96 100644 --- a/UCore.pas +++ b/UCore.pas @@ -20,7 +20,7 @@ unit UCore; interface -uses glib2, gtk2, SyncObjs, Classes, GTKForms, GTKView, ULibc, UEngines, UCoreUtils, UProgress, UVFSCore, uVFSprototypes; +uses glib2, Classes, GTKForms, GTKView, ULibc, UEngines, UCoreUtils, UVFSCore; // Panel utilities @@ -110,8 +110,8 @@ var LeftLocalEngine, RightLocalEngine: TPanelEngine; (********************************************************************************************************************************) implementation (********************************************************************************************************************************) -uses SysUtils, DateUtils, StrUtils, UConfig, UDirDelete, UOverwrite, ULocale, - UNewDir, UFileAssoc, USymlink, UCoreClasses, URemoteWait, UMain, UGnome, UError; +uses SysUtils, DateUtils, StrUtils, UConfig, UDirDelete, ULocale, + UFileAssoc, USymlink, UCoreClasses, URemoteWait, UMain, UError; @@ -540,7 +540,7 @@ begin Exit; end; WriteLn('********************************************************'); - WriteLn('** List.Count = ', List.Count, ' base @ ', integer(pointer(List))); + WriteLn('** List.Count = ', List.Count); if List.Count > 0 then for i := 0 to List.Count - 1 do if not Assigned(List[i]) then WriteLn('**** List Item idx ', i, '; base @ nil') else @@ -569,12 +569,12 @@ begin Exit; end; WriteLn('********************************************************'); - WriteLn('** List.Count = ', List.Count, ' base @ ', integer(pointer(List))); + WriteLn('** List.Count = ', List.Count); if List.Count > 0 then for i := 0 to List.Count - 1 do if not Assigned(List[i]) then WriteLn('**** List Item idx ', i, '; base @ nil') else try - WriteLn('**** List Item idx ', i, '; base @ ', integer(List[i]), '; sizeof = ', SizeOf(List[i])); + WriteLn('**** List Item idx ', i); Item := List[i]; WriteLn(' IsDir: ', Item^.IsDir, ', IsLnk: ', Item^.IsLnk, ', Size: ', Item^.Size); WriteLn(' FName: ', Item^.FName); -- cgit v1.2.3