True o False por Si o No

[emeritos]

Hola Dilferos.

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

Gracias.

[Casimiro Noteví]

Empezado por emeritos

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

¿Aparezca?

[[duilioisola]]

¿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;

[ecfisa]

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.

[Caminante]

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

[Neftali [Germán.Estévez]]

Empezado por emeritos

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

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

[Casimiro Noteví]

goto 2



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

[[nlsgarcia]]

emeritos,

Empezado por emeritos

...Necesito como hacer que un campo Boolean (True o False) me aparezca como Si o No...

Empezado por Neftali

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

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;

Revisa esta información:

Boolean

Espero sea útil

Nelson.

[ecfisa]

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

[emeritos]

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.

[Casimiro Noteví]

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.

[emeritos]

base de dato mysql
compomente CRDBGrill

[Neftali [Germán.Estévez]]

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

[ecfisa]

Empezado por emeritos

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.

Hola emeritos.

¿ Esta relacionado con lo tratado aquí ?

Saludos

[Casimiro Noteví]

Los he unido, se ve que es lo mismo