Op Wed, 6 Dec 2006, schreef Terry Kemp:
> Hi All
>
> how do you do a case statement on a record of booleans e.g...
>
> Type
> EngModeRec = Record
> ManualOp: Boolean;
> LeakTest: Boolean;
> DrainFlush: Boolean;
> end;
>
> var
> EngMode: EngModeRec;
>
> I want to have...
>
> Case True of
> EngMode.ManualOp: ManualOpRun;
> EngMode.LeakTest: LeakTestRun;
> EngMode.DrainFlush: DrainFlushRun;
> end;
>
> but of course this wont work :(
with engmode do
begin
if manualop then
manualoprun;
if leaktest then
leaktestrun;
if drainflushop then
drainflushrun;
end;
Daniël Mantione_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
