Wo liegt mein Denkfehler ...

[Delphi.Narium]

Delphi-Quellcode:

if 
(
  (UniMainModule.d6.FieldByName('archiv').AsString = '') 
or 
  (UniMainModule.d6.FieldByName('archiv').IsNull)
)
then begin
  Feld_leer := true;

und

Delphi-Quellcode:

if not 
(
  (UniMainModule.d6.FieldByName('archiv').AsString = '') 
or 
  (UniMainModule.d6.FieldByName('archiv').IsNull)
)
then begin
  Feld_leer := false;

oder

Delphi-Quellcode:

  Feld_leer := (UniMainModule.d6.FieldByName('archiv').AsString = '') 
            or (UniMainModule.d6.FieldByName('archiv').IsNull)

Da himitsu weiter oben bereits erläuterte, dass aus Null in der DB bei .AsString gleich '' wird, kann man das auf
  Feld_leer := (UniMainModule.d6.FieldByName('archiv').AsString = '')
verkürzen.