Hach, wie schön könnte das Programmiererleben doch sein. *träum*
Delphi-Quellcode:
type
TMyClass = class interfaced(TInterfacedObject)
private
FAbc: Integer;
procedure SetAbc(Value: Integer);
public
procedure Xyz;
property Abc: Integer read FAbc write SetAbc; // es wird automatisch ein Getter mit Result:=FAbc; angelegt
end;
Oder wer will es wirklich so schreiben?
Delphi-Quellcode:
type
IIntMyClass = interface
function GetAbc: Integer;
procedure SetAbc(Value: Integer);
end;
IMyClass = interface(IIntMyClass)
procedure Xyz;
property Abc: Integer read GetAbc write SetAbc;
end;
TMyClass = class(TInterfacedObject, IMyClass)
private
FAbc: Integer;
function GetAbc: Integer;
procedure SetAbc(Value: Integer);
public
procedure Xyz;
property Abc: Integer read GetAbc write SetAbc;
end;