Delphi 这个类有什么问题，恳求帮忙...

Question

unit commClass;interface
type
     Tcoommclass = class;
     public
     { public declarations }
     function GetUserName:string;
     function GetPassword:string;
     procedure SetUserName(value:string);
     procedure SetPassword(value:string);
endvar
     commclassObject := Tcoommclass;
     UserName:string;
     PassWord:string;
implementation
    function GetUserName():string;
    begin
          Result:=UserName;
    end
    function GetPassword():string;
    begin
          Result:=PassWord;
    end
    procedure SetUserName(value:String);
    begin
         UserName:=value;
    end
    procedure SetPassword(value:String);
    begin
         PassWord:=value;
    end
end.

Answer 1

你先试运行一下.有什么问题表现出来后在问如何解决.  Tcoommclass =class
  private
    FUserName: string;
    FPassWord: String;
  published
    property UserName:string  read FUserName write FUserName;
    property PassWord:String read FPassWord write FPassWord;
  end;这样定义就可以使用了。
procedure TForm1.btn1Click(Sender: TObject);
var
  user:Tcoommclass ;
begin
  user:=Tcoommclass .Create;
  user.UserName:='ABCd';
  user.PassWord:='1234';
  user.Free;
end;

Answer 2

上面的实现代码改为现在的，因为你的是类，所以实现方法名前一定要加类的前缀
  function Tcoommclass.GetUserName():string;
  begin
  Result:=UserName;
  end;  function Tcoommclass.GetPassword():string;
  begin
  Result:=PassWord;
  end;
  procedure Tcoommclass.SetUserName(value:String);
  begin
  UserName:=value;
  end;
  procedure Tcoommclass.SetPassword(value:String);
  begin
  PassWord:=value;
  end;

Answer 3

这个地方
var
  commclassObject := Tcoommclass;改为
var
  commclassObject : Tcoommclass;

Answer 4

这个地方
 procedure SetUserName(value:string);
  procedure SetPassword(value:string);
end
改为：
 procedure SetUserName(value:string);
  procedure SetPassword(value:string);
end;

Answer 5

class 后面多出来分号 ;每个 end 后加缺少 ;commclassObject := Tcoommclass;
变量声明不能用赋值 := 
commclassObject : Tcoommclass;实现部分：
function GetUserName():string;
应为 function Tcoommclass.GetUserName():string;其他一样要修改

Answer 6

不考虑语法错误的话，这个类定义的问题如下：1、如果只创建一个实例，那么应该反映不出什么问题。2、如果创建两个以上的实例，那么任何一个实例执行了SetUserName或者SetPassword之后，其它所有实例的GetUserName和GetPassword都会发生变化。