getter und setter methoden

[day]

HAllo

Muss ich bei getter und setter methoden einer klasse tatsächlich einmal die Methode als procedure und das anderemal als function bezeichen (Da ja die Setter methode keinen rückgabewert hat)?

Code:

    function getStatus() : Integer;
    procedure setStatus(Status : Integer);

[Nothine]

jap, musst du.

[Luckie]

Der Getter muss eine Funktion sein, macht ja sonst keinen Sinn. Aber was stört dich daran? Ist doch eigentlich nur schlüssig mit Funktion und Prozedur.

[mytar]

Meine Methode:

• Ich definiere mit die property mit read und write:
  Beispiel:
  
  Delphi-Quellcode:

  property MyProp: Integer read GetMyProp write SetMyProp;

• Nun drücke ich Ctrl+Shift+C und die Codevervollständigung schreibt die
  Methoden in die Unit
• Nun muss ich die Methoden einfach noch implementieren

[Luckie]

Deine Methode geht aber nur ab den Professional Versionen. Außerdem ist das keine antwort auf seine Frage. ;)

[Nothine]

Zitat:

Zitat von mytar

Nun drücke ich Ctrl+Shift+C und die Codevervollständigung schreibt die Methoden in die Unit

wos, sowas geht? :shock:

// Edit, ok, Professional version, dann is ja gut :stupid:

[CalganX]

Hi,
eigentlich kannst du auch folgendes machen (für den Fall das dir das genügt):

Delphi-Quellcode:

type TMyClass = class(TParent)
  private
    fProp: integer;
  public
    property Prop: integer read fProp set fProp;

Chris

[day]

was mich daran stört? Sieht nicht so schön aus :-)

[mytar]

@Luckie: Bei Enterprise ist sicher dabei, womöglich erst ab Delphi6, idontknow :-D
@Chakotay1308: Ich hab das nur als Beispiel gemacht, hab mir schon gedacht dass da einer wieder meckert :?

[Sharky]

Zitat:

Zitat von day

was mich daran stört? Sieht nicht so schön aus :-)

Aber so ist halt der Syntax von Delphi ;-)
Aber wenn es dir nicht gefällt kannst Du ja beide Methoden als Function deklarieren. Dann ist es halt nicht mehr sauber programmiert aber Du hast es einheitlich :stupid:

[sakura]

Zitat:

Zitat von Sharky

Aber wenn es dir nicht gefällt kannst Du ja beide Methoden als Function deklarieren. [...] :stupid:

Der :stupid: am Ende ist korrekt :mrgreen: Weil beide als Funktionen zu deklarieren schluckt der Compiler nicht :roll:

...:cat:...

[day]

Zitat:

Aber so ist halt der Syntax von Delphi

Ja daran muss man sich zuerst gewöhnen (wenn man vorher nur Java programmiert hat).

[Luckie]

@mytar: Ich sagte doch ab Professional.

[Sharky]

Zitat:

Zitat von sakura

... Weil beide als Funktionen zu deklarieren schluckt der Compiler nicht :roll:...

Warum nicht? :stupid: Er möchte es doch nur "einheitlich" ;-)

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    fstatus : Integer;
  public
    { Public-Deklarationen }
    function GetStatus : Integer;
    function SetStatus (astatus : Integer) : integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

function TForm1.GetStatus: Integer;
begin
  Result := fstatus;
end;

function TForm1.SetStatus(astatus: Integer): integer;
begin
  fstatus := astatus;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  foo : Integer;
begin
  SetStatus (1);
  foo :=  GetStatus;
end;

[sakura]

Zitat:

Zitat von Sharky

Warum nicht? :stupid: Er möchte es doch nur "einheitlich" ;-)

Darum :!: Versuche doch mal das zu kompilieren :roll:

...:cat:...

[CalganX]

Hi,
Sharky's Source wird auch soweit funktionieren, weil sich da nichts auf Eigenschaften bezieht, sondern da einfach nur zwei Member-Funktionen stehen. ;)

Chris