[[Lepe]]

En cuanto a la funcion BoolTostr no creo que sea tan grave como parece no??

File --> New -->Unit
y reemplaza el contenido con este codigo:

unit CodigoUtil;

interface
uses SysUtils;

var TrueStr, FalseStr: string;

  function BoolToStr( AValue:Boolean;const UseStrings:Boolean= true):string;
  function StrToBool( Avalue: String; const UseStrings:Boolean = true):Boolean;
implementation



function BoolToStr( AValue:Boolean;const UseStrings:Boolean= true):string;
begin
  if UseStrings then
  begin
    if Avalue then
     Result := trueStr
    else
     Result := falseStr;
  end
  else
     if Avalue then Result := 'TRUE'
     else Result := 'FALSE';
end;

function StrToBool( Avalue: String; const UseStrings:Boolean = true):Boolean;
begin
if UseStrings then
begin
  Result := ( uppercase(TrueStr) = uppercase(Avalue))
end
else
  Result := (uppercase(Avalue) = 'TRUE');
end;

initialization
TrueStr := 'Si';
FalseStr:= 'No';
end.

pero creo que se me complicara todo con un codigo mas largo y no se si sera mas lento

Si yo uso la funcion de delphi 6 () BoolToStr no tiene mas remedio que ejecutarse el codigo de esas funciones no?? por tanto será igual de largo/ eficiente que si tu creas esas funciones y las pones en una unidad aparte. Usando las funciones unicamente ganas en claridad en el codigo fuente, nada más.

si un programa ha de llamar a una funcion con 1 o 2 parametros y realizar un par de if.... tampoco es que gaste muchos recursos.... y evaluar un par de if tampoco lleva tanto tiempo de CPU y más cuando los equipos de hoy en día tienen tropocientos Megahercios...

(es mi opinion, claro)

//Saludos