uutils.pas

这个程序的基础框架部分是我在玩OOP玩得走火入魔的时候写的（当然那个时候是有意要走火入魔的了:-）。当时本来是想做一个光盘目录管理之类的东西

{*******************************************************}
{                                                       }
{       DirTree Demo                                    }
{                                                       }
{       版权所有 (C) 2005 zbird                         }
{                                                       }
{*******************************************************}

unit uUtils;

interface

function GetDirectoryName(Dir: string): string;
implementation

function GetDirectoryName(Dir: string): string;
begin
  if Dir[Length(Dir)] <> '\' then
    Result := Dir + '\'
  else
    Result := Dir;
end;

end.