diff options
Diffstat (limited to 'UCore.pas')
| -rw-r--r-- | UCore.pas | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -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); |