Delphi - Display en Grid.

 
Vista:

Display en Grid.

Publicado por Carlos Vásquez (6 intervenciones) el 21/12/2005 19:53:11
Saludos señores, tengo la siguiente situación: tengo un grid donde hay un campo cuyos valores permitidos son "Si" y "No"; soy nuevo en Delphi y desconozco muchas cosas, entre ellas esta; la idea es que el campo esté definido como char(1), que el usuario introduzca una "S" o una "N", como es natural, pero que al salir del campo se muestre "Si" o "No" dependiendo del caso; esto sería útil para otros casos como campos donde se grabe "Activo" o "Inactivo", etc.

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Display en Grid.

Publicado por BigLuis (713 intervenciones) el 21/12/2005 22:57:53
Prueba con los eventos OnGetText y OnSetText de TField
procedure TModulo.TableTallerREPARACIONSetText(Sender: TField;
const Text: String);
VAR
texto:String;
begin
Texto:=Uppercase(Text);
TField(Sender).asstring:=Texto;
end;

procedure TModulo.TableTallerREPARACIONGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
var
Texto:String;
begin
Texto:=TField(Sender).asstring;
if texto='S' then Text:='SI';
end;

O algo similar

Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar