uutils.pas

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

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.

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?