Reconocer Campo Vacio

[lKinGl]

Salu2 amigos foristas

resulta que exporte un archivo de excel2003 a dbf con el cual necesito poner a funcionar un formulario.

tengo los campos CIS y CIP que son campos únicos...

el caso es que puede sea que haya CIP pero no haya CIS entonces necesito que me salga un error diciendo que no hay Testigo secundario...

el caso es que como la tabla se exporto en dbf y nunca lo habia usado se me dificulta comprobar cuando cis esta vacio.

probé esto:

Length(Fieldvalues['cis'])< 1 pero no funciona
Fieldvalues['cis']='' pero tampoco funciona

me imagino que es que no estoy comprobando como debe ser por el tipo de dato por que habia usado era alpha de paradox 7 y ahora en este dbf aparece es una c Character nos e hay que me dicen dejo foto de la tabla y el código que llevo

Código Delphi [-]
if key=#13 then
  begin
    With Table1 do
      begin
        if Locate('cip',edit1.Text,[]) then
          begin
            edit2.Text:=FieldValues['testigop'];
              if (FieldValues['cis'])='' then
                begin
                  if Application.MessageBox('Disculpe, este registro no tiene Testigo Secundario, ¿Esta seguro que quiere cargar la información incompleta?','',mb_yesno)=6 then
                    begin
                      edit3.Text:='No Tiene';
                      edit4.Text:='No Tiene';
                      edit5.Text:=FieldValues['postulada'];
                      edit6.Text:=FieldValues['mesa'];
                      edit7.Text:=FieldValues['ctro'];
                      edit8.Text:=FieldValues['nombrecent'];
                      edit9.Text:=FieldValues['direccion'];
                      edit10.Text:=FieldValues['municipio'];
                      edit11.Text:=FieldValues['estado'];
                    end
                    else
                    begin
                      edit1.Text:='';
                      BitBtn5.Click;
                    end;
                end
                else
                begin
                end;
            edit3.Text:=FieldValues['cis'];
            edit4.Text:=FieldValues['testigos'];
            edit5.Text:=FieldValues['postulada'];
            edit6.Text:=FieldValues['mesa'];
            edit7.Text:=FieldValues['ctro'];
            edit8.Text:=FieldValues['nombrecent'];
            edit9.Text:=FieldValues['direccion'];
            edit10.Text:=FieldValues['municipio'];
            edit11.Text:=FieldValues['estado'];
          end
          else
          begin
            Application.MessageBox('No se encuentra la cédula ingresada','');
          end;
      end;
  end;

gracias adelantadas

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

Empezado por lKinGl

probé esto:

Length(Fieldvalues['cis'])< 1 pero no funciona
Fieldvalues['cis']='' pero tampoco funciona

Prueba con:

Código Delphi [-]
if (FieldByName('cis').IsNull) then

[*Caro*]

No deberías duplicar hilos lKing http://www.clubdelphi.com/foros/showthread.php?t=61516

Saluditos

[cmm07]

estoy completamente de acuerdo con [caro]