FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Muchas gracias por constestar.
Sería mucho pedir un ejemplo así lo pudiera comprender. Saludos. |
#2
|
||||
|
||||
Código:
Procedure Form1Table1Campo1GetText(Field : TField; var Text : String); // de los parámetros no me recuerdo bien... Begin Case Tabla1Campo1.AsInteger of 1 : Text := 'uno'; 2 : Text := 'dos'; 3 : Text := 'tres'; 4 : Text := 'cuatro'; else Text := 'mayor que cuatro'; end; end; Procedure Form1Table1Campo1SetText(Field : TField; const Text : String); // de los parámetros no me recuerdo bien... Begin if text = 'uno' Then Tabla1Campo1.AsInteger := 1 else if text = 'dos' Then Tabla1Campo1.AsInteger := 2 else if text = 'tres' Then Tabla1Campo1.AsInteger := 3 else if text = 'cuatro' Then Tabla1Campo1.AsInteger := 4 else raise exception.Create('Valor inválido para este campo!'); end; Hasta luego.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
|
|
|