Record mit Defaultwerten?

[Phantom1]

Meines wissens nach ist das in der form leider nicht möglich, es gibt aber noch eine andere möglichkeit, die ist zwar auch nicht unbedingt besser, aber dennoch in manchen situationen nützlich und recht übersichtlich.

Delphi-Quellcode:

Type
  TRouterMn_PluginDef = record
    Inactive: Boolean;
    OnTrigger: Boolean;
    OnTrigger_OnlineOnly: Boolean;
    OnTrigger_OfflineOnly: Boolean;
    OnIPChange: Boolean;
    OnIPChange_OnlineOnly: Boolean;
    OnIPChange_OfflineOnly: Boolean;
    OnCount: Boolean;
    OnCount_N: integer;
    OnCount_OnlineOnly: Boolean;
    OnCount_OfflineOnly: Boolean;
  end;

Const
  DefaultRec: TRouterMn_PluginDef =
   (Inactive: True;
    OnTrigger: True;
    OnTrigger_OnlineOnly: True;
    OnTrigger_OfflineOnly: True;
    OnIPChange: True;
    OnIPChange_OnlineOnly: True;
    OnIPChange_OfflineOnly: True;
    OnCount: True;
    OnCount_N: 2;
    OnCount_OnlineOnly: True;
    OnCount_OfflineOnly: True);

procedure TForm1.FormCreate(Sender: TObject);
Var TestRec: TRouterMn_PluginDef;
begin
  TestRec:=DefaultRec;
  //...
end;