como editar el caption de una tdbedit boolean

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

Yo no te he entendido muy bien.

Primero hablas de un DBEdit (en el título) y luego de un DBComboBox. ¿Los valores vienen de Base de Datos?
¿Están almacenados como String?

A veces se puede "repintar" el contenido, a veces se puede usar otro control para mostrar valores distintos y el DBComboBox dejarlo oculto; Tal vez también puedas cambiar los valores en la propiedad DisplayValue del TField...

[Casimiro Noteví]

Empezado por Neftali

Yo no te he entendido muy bien.
Primero hablas de un DBEdit (en el título) y luego de un DBComboBox. ¿Los valores vienen de Base de Datos?

Un tdbedit boolean, un tdbcombobox con parámetro boolean, cómo decirle que está activado lo que debe mostrar.

Una aclaración falta.

[asdbernardo]

Empezado por Neftali

Yo no te he entendido muy bien.

Primero hablas de un DBEdit (en el título) y luego de un DBComboBox. ¿Los valores vienen de Base de Datos?
¿Están almacenados como String?

A veces se puede "repintar" el contenido, a veces se puede usar otro control para mostrar valores distintos y el DBComboBox dejarlo oculto; Tal vez también puedas cambiar los valores en la propiedad DisplayValue del TField...

Tienes razon, en el titulo me equivoque porque reformule la pregunta para ver si me entendia mejor...

es un dbcombobox que el valor boolean viene de la base de datos y Muestra True o False depende de como se guardo, por lo que quiero que muestre a la vista en vez de TRUE o FALSE, me muestre 'Activado' = True y 'Desactivado' = false.

Y con respecto a las alternativas, cual es la mejor...?

Gracias y saludos.

[*Caro*]

Hola asdbernardo, puedes utilizar el evento OnGetText de tu campo:

Código Delphi [-]
procedure QueryEstadoGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
 if Sender.AsBoolean then
  Text := 'Activado'
 else
  Text := 'Desactivado';
end;

Saluditos

[asdbernardo]

Empezado por Caro

Hola asdbernardo, puedes utilizar el evento OnGetText de tu campo:

Código Delphi [-]
procedure QueryEstadoGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
 if Sender.AsBoolean then
  Text := 'Activado'
 else
  Text := 'Desactivado';
end;

Saluditos

Gracias caro muy amable, ahora el procedure es en el dataset? yo utilizo unidac es decir unitable, datasource, etc. alli como va?
porq te recuerdo es un tdbcombobox. y en los eventos no veo el ongettext

Saludos y Gracias de nuevo!

[*Caro*]

Empezado por asdbernardo

....... ahora el procedure es en el dataset? yo utilizo unidac es decir unitable, datasource, etc. alli como va?
porq te recuerdo es un tdbcombobox. y en los eventos no veo el ongettext

Hola, el OnGetText esta en los eventos de tu campo, tu campo debe ser persistente (hacer doble click sobre tu dataset (UniTable) y añades tus campos), seleccionas el campo en cuestión y veras sus eventos.

Saluditos

[asdbernardo]

Empezado por Caro

Hola, el OnGetText esta en los eventos de tu campo, tu campo debe ser persistente (hacer doble click sobre tu dataset (UniTable) y añades tus campos), seleccionas el campo en cuestión y veras sus eventos.

Saluditos

Listo caro, encontre y use tu codigo, Y me mostro lo que queria, pero sigo con el mismo problema, ya que no simula que Activado = true, y tampoco que Desactivado = false, y me marca este error( 'Activado' is not a valid boolean value for field 'borrado' ) me esta generando el mismo error que mostrar directamente desde el tdbcombobox en el parametro Items. y colocar Activado y Desactivado. me marca el mismo error

Saludos caro, de nuevo muchas gracias!

[*Caro*]

Supongo que te da el error al grabar los datos, para que tome los valores correctos, puedes utilizar el evento OnSetText de tu mismo campo:

Código Delphi [-]
procedure QueryEstadoSetText(Sender: TField;
  const Text: String);
begin
 if Text='Activado' then
  Sender.Value := True
 else
  Sender.Value := False;
end;

Saluditos