restringir valores

[Mario1980]

Hola, la duda de hoy es....
Tengo una tabla paradox, en la cual existen campos que solo permiten ingresar determinados valores, por ejemplo temgo un campo AMPM en el que se permiten ingresar A,P y C ( se especifican estos valores en el picture ), estoy utilizando delphi 2 y cuando cargo este campo en un DBField y lo ejecuto ingreso cualquier valor e igualmente lo toma, intente validar esto desde codigo pero si lo hago aunque ingrese los valores correctos igual me da error, alguien sabe porque?.
PD: estas tablas son utilizadas por un programa hecho en PARADOX 10, y funcionan correctamente.
Gracias a cualquiera que me ayude.

[Mario1980]

idem titulo

[[Lepe]]

Una solución es poner un DBComboBox, o un DBListBox para que solo elija los valores que tu quieres.

Si los valores dependen de otra tabla, puedes usar un DBLookupComboBox.

Si necesitas que sea un DBEdit, pues entonces en el evento BeforePost de la tabla miras el valor y decides si quieres aceptar el valor del campo o no.

Tambien puedes usar el evento OnValidate del campo en cuestión.

Código Delphi [-]
 procedure TAblaBeforePost(Dataset:TDataset);
 begin
   if  campo.asstring <> 'A' then
   begin
       ShowMessage('solo acepto una A ');
       sysutils.Abort;  // no dejamos guardar;
   end

Seguro que te sirve alguno de estos métodos en Delphi 2

Saludos

[marcoszorrilla]

Código Delphi [-]
  procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  begin
    if not (key in ['A'..'C']) then
    begin
    key:=#0;
    ShowMessage('Carácter inválido.');
    end;
  end;

Un Saludo.