Re: [fpc-pascal] Boolean case statement

2006-12-05 Thread Terry Kemp
On Tue, 2006-12-05 at 22:44 +0100, Vincent Snijders wrote: > Terry Kemp schreef: > > Hi All > > > > how do you do a case statement on a record of booleans e.g... > > > You cannot use it like that. You would have to use an nested if then > statement like: > > if EngMode.ManualOp then ManualRun

Re: [fpc-pascal] Boolean case statement

2006-12-05 Thread Steve Williams
Terry Kemp wrote: 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.LeakT

Re: [fpc-pascal] Boolean case statement

2006-12-05 Thread Daniƫl Mantione
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 T

Re: [fpc-pascal] Boolean case statement

2006-12-05 Thread Vincent Snijders
Terry Kemp schreef: 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.Lea

[fpc-pascal] Boolean case statement

2006-12-05 Thread 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; E

[fpc-pascal] TProcess.Terminate leaves all children

2006-12-05 Thread Sverrir Valgeirsson
Hi. I am using the TProcess class in an application I'm writing on Windows 2000, and I've noticed that it only kills the actual process it points to when the Terminate() method is called, and leaves all children of that process running. Is there any (simple) way to kill the entire process tre