麻烦大家帮我看看这个类中的属性定义有什么不对的地方？小弟是初学delphi的面向对象编程。

[chenshu19791003]

TDBOperate = Class(TObject)
private
FItems: TStrings;
FQuery: TADOQuery;
FSavePass: Boolean;
protected
procedure SetItems(const Value: TStrings);
function GetIsSavePass(UserName: string): Boolean;
procedure SetIsSavePass(SavePass: char = '1');
public
constructor Create; overload;
property Items: TStrings read FItems write SetItems;
property IfSavePassWord: Boolean read FSavePass write SetIsSavePass default false;
procedure GetTRecentLogin;
end;

其中的函数和过程 我都定义了 可是在编译的时候总是提示我[Error] UDBOperate.pas(21): Incompatible types 。这是怎么回事呀？

[GARNETT2183]

不兼容的类型....

[gzmhero]

不匹配的类型。

procedure SetIsSavePass(SavePass: char = '1');
-------------------》》》》》》》》》》》》》
procedure SetIsSavePass(SavePass: boolean = true);

[zhlmxh]

不一定是定义部分的问题，可能是引用时有错误

[mianbaosoft]

char = '1' //string <> char

[chenshu19791003]

麻烦你我想问一下在类的属性中的read 和 write 中的参数必须和属性的类型相同吗？

[zzlingaaa]

每个属性都有一个read说明符、一个write说明符或者两个都有。它们就是被调用的访问说明符（access specifiers）。访问说明符具有如下形式

read fieldOrMethod

write fieldOrMethod

这里的fieldOrMethod是一个域或方法的名称（不管是域还是方法，都必需是与属性在同一个类或祖先类中声明的）。



·
如果fieldOrMethod在同一个类中声明过，那么它必需出现在属性声明之前。如果它声明于祖先类中，那么它必需在后裔类中是可见的；也就是说，如果祖先类的声明在不同的单元中，那么这里的fieldOrMethod不能是一个私有的域或方法。

·
如果fieldOrMethod是一个域，那么它必需与属性具有相同的类型。

·
如果fieldOrMethod是一个方法，那么它不能被重载。而且，公布属性的访问方法必需使用缺省的register调用约定。

·
在read说明符中，如果fieldOrMethod是一个方法，那么它必需是一个无参数的函数并且函数返回的类型与属性的类型相同。

·
在write说明符中，如果fieldOrMethod是一个方法，那么它必需是一个过程，并且该过程接受一个单独的值参数或const参数，并且参数类型与属性类型相同。

[zzlingaaa]

procedure SetIsSavePass(SavePass: char = '1');
property IfSavePassWord: Boolean read FSavePass write <<<SetIsSavePass>>>