Ayuda con CASE

[[Lepe]]

Yanina Bienvenid@ al club.

Si tienes que preguntar por campos requeridos, este hilo te evitaría crear CASEs, realizando un bucle directamente sobre los campos del Dataset.

El truco podría ser algo así:

Código Delphi [-]

var Error : string;
begin
for I := 0 to DataSet.FieldCount - 1 do
  if DataSet.Fields[i].IsNull then
      Error := Error + DataSet.Fields[i].DisplayName +' está vacio' #10#13; 
// las almohadillas es un salto de linea.

if lenght(Error)>0 then
 ShowMessage(Error)

Espero te sirva. Un saludo