<p>Am 27.07.2015 11:37 schrieb "Mark Morgan Lloyd" <<a href="mailto:markMLl.lazarus@telemetry.co.uk">markMLl.lazarus@telemetry.co.uk</a>>:<br>
><br>
> Now obviously I could have a separate property holding an enumeration, but it's a pity that it's not possible to do something like<br>
><br>
>         case MainForm.OutputComponent of<br>
>           TListBox: begin end;<br>
>           TMemo:    begin end;<br>
>           ...<br>
>         otherwise<br>
>           // Fatal exception since this is a serious programming error<br>
>         end;</p>
<p>I had already thought about a TClass-case myself, but the first problem is whether the case labels should be strict ("x.ClassType = y") or loose ("x is y") [for Strings and Ordinals that is no problem]. And if the latter, what if the type is a TEdit, but you have labels for example for TCustomEdit and TControl? Also ranges should probably not be allowed (e.g. TControl..TEdit).</p>
<p>Regards,<br>
Sven</p>