Eigenschaften in Zusammenhang mit Methoden mit Rückgabewert

[FriendOfDelphi]

Hallo Allerseits,

ich habe eine Frage zu Methoden mit Rückgabewert.

Ich hatte zunächst folgende Methode und Eigenschaft implementiert:

Delphi-Quellcode:

procedure SetzeBetriebsArt(iBetriebsArt: integer);

property BetriebsArt: integer read FiBetriebsArt write SetzeBetriebsArt;

Nun wollte ich, dass die Methode einen Rückgabewert liefert und habe die Prozedur in eine Funktion verändert:

Delphi-Quellcode:

function SetzeBetriebsArt(iBetriebsArt: integer): integer;

property BetriebsArt: integer read FiBetriebsArt write SetzeBetriebsArt;

Jetzt meldet der Compiler "Inkompatible Typen" in der Programmzeile, in der die property deklariert ist.

Was mache ich falsch?

[Sir Rufo]

Der Setter ist immer eine procedure der Getter eine function

Wenn du was anderes haben möchtest, gerne, aber nicht mehr als Getter oder Setter

[FriendOfDelphi]

Zitat von Sir Rufo:

Der Setter ist immer eine procedure der Getter eine function

Wenn du was anderes haben möchtest, gerne, aber nicht mehr als Getter oder Setter

Heißt das, dass ein Setter nur als Prozedur realisiert werden und daher keine Information zurück geben kann?

[DeddyH]

So isses. Mach doch einmal spaßhalber folgendes: schreibe in den public- oder published-Abschnitt Deiner Klasse
property TestProp: integer read GetTestProp write SetTestProp; und drücke anschließend STRG-SHIFT-C. Nun solltest Du sehen können, wie das auszusehen hat.

[FriendOfDelphi]

Zitat von DeddyH:

So isses. Mach doch einmal spaßhalber folgendes: schreibe in den public- oder published-Abschnitt Deiner Klasse
property TestProp: integer read GetTestProp write SetTestProp; und drücke anschließend STRG-SHIFT-C. Nun solltest Du sehen können, wie das auszusehen hat.

Durch die Tastenkombination wird ja automatisch die Struktur für den Getter und den Setter erstellt:

Delphi-Quellcode:

function TForm1.GetTestProp: integer;
begin

end;

procedure TForm1.SetTestProp(const Value: integer);
begin

end;

Aber warum ist der Getter eine Funktion und der Setter eine Prozedur und nicht umgekehrt?
Ich möchte doch eine Rückmeldung darüber haben, ob das Ändern von "TestProp" funktioniert hat, oder ob ein Fehler aufgetreten ist. Und das ginge doch nur über "result" in einer Funktion? Wo liegt hier mein Denkfehler?

[DeddyH]

Der Getter gibt den aktuellen Wert der Property zurück (Funktion), der Setter soll den Wert neu setzen (Prozedur). Es steht Dir aber frei, im Setter ggf. eine Exception zu werfen, dann weißt Du, ob die Zuweisung funktioniert hat.

[FriendOfDelphi]

Zitat von DeddyH:

Der Getter gibt den aktuellen Wert der Property zurück (Funktion), der Setter soll den Wert neu setzen (Prozedur). Es steht Dir aber frei, im Setter ggf. eine Exception zu werfen, dann weißt Du, ob die Zuweisung funktioniert hat.

Wenn ich die Fehlerbehandlung über eine Exception abwickle, müsste ich z.B. eine öffentliche Variable "Error" einführen.
Dann würde dies innerhalb der Setter-Prozedur stehen:

Delphi-Quellcode:

try
 if (value<10) then
   begin
     TestProp := 1;
     Error :=0;
   end;
except
  Error := 1;
end;

Ich hätte aber lieber im aufrufenden Quellcode eine Rückmeldung wie:

Delphi-Quellcode:

[...]
Mache irgendwas...
Ergebnis:=SetTestProp(9); //Ergebnis soll dann gleich 0 sein

Ergebnis:=SetTestProp(99); //Ergebnis soll dann gleich 1 sein
[...]

Geht das auch?

[DeddyH]

Nochmal: der Setter ist immer eine Prozedur. Du könntest aber verschiedene Exception-Klassen definieren und diese dann entsprechend auslösen. Im aufrufenden Programm brauchst Du dann einen try-except-Block. Ungetestet:

Delphi-Quellcode:

type 
  EValueTooSmall = class(Exception);
  EValueTooLarge = class(Exception);

procedure TDeineKlasse.SetTestProp(const value: integer);
begin
  if value < 10 then
    raise EValueTooSmall.Create('Der Wert muss mindestens 10 betragen.')
  else if value > 100 then
    raise EValueTooLarge.Create('Der Wert darf maximal 100 betragen.')
  else
    FTestProp := value;
end;

[Sir Rufo]

Zitat von FriendOfDelphi:

Zitat von DeddyH:

Der Getter gibt den aktuellen Wert der Property zurück (Funktion), der Setter soll den Wert neu setzen (Prozedur). Es steht Dir aber frei, im Setter ggf. eine Exception zu werfen, dann weißt Du, ob die Zuweisung funktioniert hat.

Wenn ich die Fehlerbehandlung über eine Exception abwickle, müsste ich z.B. eine öffentliche Variable "Error" einführen.
Dann würde dies innerhalb der Setter-Prozedur stehen:

Delphi-Quellcode:

try
 if (value<10) then
   begin
     TestProp := 1;
     Error :=0;
   end;
except
  Error := 1;
end;

Ich hätte aber lieber im aufrufenden Quellcode eine Rückmeldung wie:

Delphi-Quellcode:

[...]
Mache irgendwas...
Ergebnis:=SetTestProp(9); //Ergebnis soll dann gleich 0 sein

Ergebnis:=SetTestProp(99); //Ergebnis soll dann gleich 1 sein
[...]

Geht das auch?

Dann schreib dir doch sowas ...

Es geht aber NICHT als Setter einer Property

[dominikkv]

Kleine Frage: Wie stellst du dir das vor? Wie willst du das "Ergebnis" bekommen?

Delphi-Quellcode:

// Normal, mit Procedure als Setter:
Klasse.Eigenschaft := 10;

// Ausgedacht, mit Funktion als Setter:
Ergebnis := Klasse.Eigenschaft := 10;

Denk doch mal kurz darüber nach.