DBEdit1.Text := NULL;
ó
DBEdit1.Text := ' ';
Quise reducirlo de la siguiente manera:
procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for i := 0 to 2 do begin if (ADOTable1.Fields[i].Value = NULL) then begin Showmessage('La Casilla ' +ADOTable1.Fields[i].DisplayLabel+ ' está vacía.'); Abort; end end; ShowMessage('Todos están llenos'); end;
El code me funciona a medias y tiene sus fallas, luego que recorre todo no vuelve a empezar, reconoce los campos la primera vez y luego todos están llenos y no vuelve a recorrer y la otra es que aquí estoy obligando que todos los campos deben estar llenos, también intenté esta otra pero no me pasa del primer campo:
procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for i := 0 to 2 do begin if ADOTable1.Fields[i].Required then begin Showmessage('La Casilla ' +ADOTable1.Fields[i].DisplayLabel+ ' está vacía.'); Abort; end end; ShowMessage('Todos están llenos'); end;
¿Alguien me puede mostrar una manera mejor de hacerlo?.
Saludos.