Hilfe mit published property einer Liste

[bernau]

Zitat von iphi:

Der Nutzer der Komponente soll nur erlaubte Baudraten zur Auswahl haben z.B. (4800, 9600, 19200) als String oder als Integer.

Bei der Property kannst du erst mal entscheiden, ob du ein Integer oder rein Aufzählungstype verwenden willst.

Beim Aufzählungstype kann der Nutzer nur deine vorgegebenen Werte verwenden:

Delphi-Quellcode:

type
  TBaudRate = (bt2400,bt4800,bt9600);


  TMyCompo = class(Tobject)
    private
    FBaudRate: TBaudRate;
    procedure SetBaudRate(const Value: TBaudRate);
    public
      Property BaudRate:TBaudRate read FBaudRate write SetBaudRate;
    end;

Oder Du verwendest Integer als Type. Dann kannst du entweder im Setter eine Exception auslösen, wenn ein Wert verwendet wird, der nicht gültig ist.

Delphi-Quellcode:

procedure TMyCompo.SetBaudRate(const Value: Integer);
begin
  if not
    (
    (value = 2400) or
    (value = 4800) or
    (value = 9600)
    ) then
    raise Exception.Create('Ungültiger Wert für die BaudRate');

  FBaudRate := Value;
end;

Oder Du setzt im Setter den naheliegensten Wert. (Beispiel: Nutzer möchte den Wert 4900 verwenden und du änderst im Setter den Wert auf den Gültigen Wert 4800.