uutils.pas

来自「这个程序的基础框架部分是我在玩OOP玩得走火入魔的时候写的（当然那个时候是有意要」· PAS 代码 · 共 25 行

{*******************************************************}
{                                                       }
{       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.