DELPHI 试题

Question

請寫出屬性XYZ定義語句：其讀方法為直接取變量FFunName的值，寫方法為SetFunName，其屬性類型為字符型
用DELPHI 实现  

Answer 1

Txxx=class
private
  FFunName: string;
  porceudre Setfunnum(const value: string);
public
  property Funnum: string read FFunnum write SetFunNum;
end;楼主好好看看下书吧

Answer 2

type
  Txxx=class
  private
    FFunName: string;
    porceudre SetFunName(const value: string);
  public
    property XYZ: string read FFunName write SetFunName;
  end;implementationprocedure Txxx.SetFunName(const value: string);
begin
  if FFunName <> value then FFunName := value;
end;