True o False por Si o No
 

Hola Dilferos.

Necesito como hacer que un campo boolena (true o False) me aparezca como Si o No.

Gracias.

¿Aparezca?

¿Aparezca?
Si eso significa devolver un string según el valor de un boolean:

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

Hola emeritos.

Si lo que buscas es que se muestre como una cadena con los valores "No" o "Si", podes hacer:

Código Delphi [-]
function NoSi(const Value: Boolean): string;
begin
  if Value then
    Result:= 'Si'
  else
    Result:= 'No';
end;

O también, con el mismo resultado:

Código Delphi [-]
function NoSi(const Value: Boolean): string;
const
  CNOSI : array[Boolean] of string =('No', 'Si');
begin
  Result:= CNOSI[Value];
end;

Ejemplo:

Código Delphi [-]
uses DateUtils; // YearOf

...

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Format('Este %s es un año bisiesto', [LowerCase(NoSi(IsLeapYear(YearOf(Now))))]));
end;

Saludos :)

Edito: Disculpas duiliosola, no estaba tu mensaje cuando comencé este. Es la misma idea.

Hola

Ahi tienes el evento ongettext de los objetos TField

Código Delphi [-]
procedure TDMPrincipal.MicampoGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
 if sender.asboolean then
text:='Si'
else
Text:='No';
end;

Espero te sirva

Saludos

¿En un formulario?
¿En una tabla?
¿En un listado?
....

:confused::confused:

goto 2



............

emeritos,

:cool:

^\||/

Revisa este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const
   Si : Boolean = True;
   No : Boolean = False;

begin

   if Si then
      ShowMessage('Si');

   if not No then
      ShowMessage('No');

end;

:rolleyes:

Revisa esta información:
Espero sea útil :)

Nelson.

Hola emeritos.

Me parece que interpreté mal lo que estabas buscando... Creo que te refieres a esto:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  ...
  TBooleanField(TuDataSet.FieldByName('NOMBRE_DEL_CAMPO_BOOLEAN')).DisplayValues:= 'Si;No';
end;

Si creaste el campo persistente, podes definir los valores de la propiedad DisplayValues desde el Object Inspector.

Saludos :)

DBGrill campo boolean Si por true
 

Hola dilferos.

Necesito que en un DBGrill en varias de sus columnas que son campos boolean en vez de salir true o false o en su efecto o, -1 me salga SI, NO segun sea.

Gracias.

Es fácil, pero incluso es más fácil si nos dices qué base de datos usas y qué componentes, ya que hay algunos que lo hacen ellos y te ahorras el código.

base de dato mysql
compomente CRDBGrill

Revisa los eventos de las columnas definidas en el DBGrid.
En concreto el OnGetText.

Hola emeritos.

¿ Esta relacionado con lo tratado aquí ?

Saludos :)

Los he unido, se ve que es lo mismo :rolleyes: