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.