Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by norwegen60,
2. Aug 2017
Ja klar. NullObject hat mich auf NIL geleitet aber du machst ja ein class function TMethode.CreateNullObject: TMethode;
begin
Result := TMethode.Create;
end;
Damit müsste ich aber jedem Property einen "smarten Getter" verpassen und das wollte ich vermeiden
Vielen Dank
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by norwegen60,
2. Aug 2017
Ich denke das
müsste
function TAnalyse.GetMethode: TMethode;
begin
if Assigned(FMethode) then
Result := FMethode
else
Result := TMethode.NullObject;
end;
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by norwegen60,
2. Aug 2017
Die wurde hier im Hause auch schon diskutiert. Der, der diese Klassen definiert hat, meint es sei nötig.
Wie gesagt ist die Klasse stark vereinfacht. Bevor man zu jedem Property eine Funktion schreibt, ist ein Dummy doch einfacher. Hier stört nur, dass der Code schon eine Zeit lang lebt und es Stellen gibt, die über assigned prüfen, ob mit Methoden-Parametern weiter gemacht werden kann.
...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by norwegen60,
2. Aug 2017
Hallo zusammen,
ich habe folgende (vereinfachte) Klassenstruktur
TMethode = class
private
FNo: Integer;
FName: String;
public
property No: Integer read FNo write FNo;