stringclass.pas

来自「Delphi深度探索,Delphi深度探索（第二版）」· PAS 代码 · 共 55 行

{-----------------------------------------------------------------------------
 Unit Name: StringClass
 Author:    hubdog(陈省)
 Email:     [e-mail]
 Purpose:   XP测试框架DUnit示意例子
 History:
            2003-4-6 创建本单元  
-----------------------------------------------------------------------------}


unit StringClass;

interface
uses Sysutils;

type
  TStringClass=class(TObject)
  private
    FStr:string;
  public
    constructor Create(AStr:String);
    //
    function UpperCase:string;
    //
    function LowerCase:string;
    //
    function QuotedStr:string;
  end;

implementation

{ TStringClass }

constructor TStringClass.Create(AStr: String);
begin
  FStr:=AStr;
end;

function TStringClass.LowerCase: string;
begin
  Result:=SysUtils.LowerCase(FStr);
end;

function TStringClass.QuotedStr: string;
begin
  Result:=SysUtils.QuotedStr(FStr);
end;

function TStringClass.UpperCase: string;
begin
  Result:=SysUtils.UpperCase(FStr);
end;

end.