delphi - Delphi中如何自动生成getter和setter方法？

Question

我是一名 Java 开发人员，我总是使用 getter-setter 方法。
我如何在 Delphi 中使用这个概念？

• 我定义了一个局部变量//1
• 我创建一个属性//2
• 我按 CTRL+SHIFT+C，编辑器将创建 getter 和 setter 方法//3

对于这个例子:

unit Unit1;

type
  ClassePippo=class
  private
    colorText:string; //1
    function getColorText: String; //3
    procedure setColorText(const Value: String); //3
  public
    property colore: String read getColorText write setColorText;  //2
  end;

implementation

{ ClassePippo }

function ClassePippo.getColorText: String; //3
begin
  Result:=colorText;
end;

procedure ClassePippo.setColorText(const Value: String); //3
begin
  colorText:=Value;
end;

end.

是否有自动创建 getter 和 setter 方法的功能？

我只想写colorText: string;//1 并调用快捷方式，我希望 IDE 自动创建 //2 和 //3。

(当我使用 Eclipse 在 Java 中进行开发时，我可以使用 Source-->Generate getter 和 setter... 自动生成 getter 和 setter 方法...)

Answer 1

首先键入您想要的属性而不是内部变量。只需在您的类(class)中创建以下内容即可

属性Colore:String读取GetColorText写入SetColorText;

然后按Ctrl Shift C

然后 IDE 将创建 getter、setter 和私有(private)内部变量。

请注意，属性 setter 和 getter 在 Object Pascal 中是可选的。您可以轻松编写

属性Colore:字符串读取FColorText写入FColorText;

或者只有一个 setter 或 getter

属性Colore:字符串读取FColorText写入SetColorText;

在这种情况下，IDE 将生成私有(private) FColorText 变量和 setter 方法 SetColorText