Frage zu Property

[Die Muhkuh]

Wirf das mit [60] komplett raus und mach einen setter, der diese Bedingung prüft:

Delphi-Quellcode:

TYPE TArtikel = class
   private
     fBezeichnung : string;

     procedure SetBezeichnung(Value: string);
   public
    property Bezeichnung : string read fBezeichnung write SetBezeichnung;

end;

[...]

procedure TArtikel.SetBezeichnung(Value: string);
begin
  if Length(Value) > 60 then
  begin
    // Exception werfen, String kürzen, was auch immer passieren soll, wenn der Text größer 60 Zeichen ist
  end;

  fBezeichnung := Value;
end;