[SOLVED] Is this a valid code?

[egsuh]

In following example, if Options['LoopSelect'] is not 'true' or 'false' then EConvertError will be raised.
I'd like to treat '' as false.

Code: Pascal  [Select][+][-]

1. function TBlockStart.getLoopSelect: boolean;
2. begin
3.    try
4.       Result := StrToBool(Options['LoopSelect']);
5.    except
6.       Result := False;
7.    end;
8. end;
9.  

[Paolo]

Trystrtobool my help here ?

[n7800]

Actually, there is StrToBoolDef for this:

Code: Pascal  [Select][+][-]

1. function StrToBoolDef(const S: string; Default: Boolean): Boolean;
2.  

[n7800]

By the way, there are global arrays TrueBoolStrs and FalseBoolStrs, in which you can specify acceptable values.

[egsuh]

   function StrToBoolDef(const S: string; Default: Boolean): Boolean;

This really helps, and good enough. Thank you very much.