Código Delphi [-] function BooleanToStringSINO(Valor : boolean) : string; begin if (Valor = True) then Result := 'Si' else Result := 'No'; end;
function BooleanToStringSINO(Valor : boolean) : string; begin if (Valor = True) then Result := 'Si' else Result := 'No'; end;