Unit 'lptree'	Package
[Overview][Constants][Types][Classes][Procedures and functions][Index]	[#pl_lape]

TLapeTree_Case

Declaration

Source position: lptree.pas line 513

`type TLapeTree_Case = class(TLapeTree_Base)`
`protected`
`type`
`TCaseBranches = TCaseBranches;`
`protected`
`FCondition: TLapeTree_ExprBase;`
`FElse: TLapeTree_Base;`
`FBranches: TCaseBranches;`
`procedure DeleteChild(); override;`
`procedure setCondition(); virtual;`
`procedure setElse(); virtual;`
`public`
`constructor Create(); override;`
`destructor Destroy; override;`
`procedure addBranch(); virtual;`
`function Compile(); override;`
`property Condition: TLapeTree_ExprBase; [rw]`
`property ElseBody: TLapeTree_Base; [rw]`
`end;`