{-----------------------------------------------------------------------------
 Unit Name: StringClass
 Author:    hubdog(陳省)
 Email:     hubdog@263.net
 Purpose:   XP測(cè)試框架DUnit示意例子
 History:
            2003-4-6 創(chuàng)建本單元  
-----------------------------------------------------------------------------}


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.