Wo liegt mein Denkfehler ...

[himitsu]

Es gibt die Konstanten TRUE und FALSE, aber es gibt auch die logischen Auswertungen TRUE und FALSE.

False ist 0
und True ist alles Andere.

Boolean hat 256 Werte (Byte) und LongBool sogar 4 Milliarden (Integer), aber jeweils nur Einer ist FALSE.

Im Delphi ist die True-Konstante = 1 ($01),
aber in WinAPI/C++ ist die Konstante meistent -1 ($FFFFFFFF bzw $FF)

Delphi-Quellcode:

B := True;
if B then OK;
if not B then NEE;
if B = True then OK;
if B = False then NEE;

B := Boolean(2);  // Boolean kommt aus einer Funktion und wurde z.B. "berechnet"
if B then OK;
if not B then NEE;
if B = True then OK;  // Falsch: if Byte(B) = Byte(True) then ... if 2 = 1 then
if B = False then NEE;

Ist im Prinzip das Gleiche, wie man auch Fließkommazahlen niemals auf Gleichheit prüft.

[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.