[fpc-pascal] BoolToStr() with correct locale output

[Graeme Geldenhuys]

Michael Van Canneyt wrote:
> 
> StrToBool should use all elements ?

In FPC 2.2.5 it does not.

============ implementation  =====================
begin
 if UseBoolStrs Then
  begin
    CheckStrs;
    if B then
      Result:=TrueBoolStrs[0]
    else
      Result:=FalseBoolStrs[0];
  end
 else
  If B then
    Result:='-1'
  else
    Result:='0';
end;
======================================


Regards,
  - Graeme -

_______________________________________________________
fpGUI - a cross-platform GUI toolkit using Free Pascal
http://opensoft.homeip.net/fpgui/