Probleme mit eigener Klasse

[Christian Seehase]

Moin Chris,

angenommen, Du hast folgende Deklaration:

Delphi-Quellcode:

type
  Test = class(TObject)
  private
    FsTest : string;
  public
    property TestProp : string read GetString write SetString;
  end;

und unter implementation steht noch nichts, dann kannst Du, mit Cursor in der property Zeile, STRG-SHIFT-C drücken und hast anschliessend:

Delphi-Quellcode:

type
  Test = class(TObject)
  private
    FsTest : string;
    function GetString: string;
    procedure SetString(const Value: string);
  public
    property TestProp : string read GetString write SetString;
  end;

implementation

function test.GetString: string;
begin

end;

procedure test.SetString(const Value: string);
begin

end;