Tdbf - Leere Datumfelder prüfen [gelöst]

[and4more]

Hallo liebes Forum, habe schon wieder eine Wissenslücke, und zwar möchte ich bei einer dBase-Datenbank (Tdbf) ein Datumsfeld abfragen ob es leer ist, aber die Versuche mit:

Code: Alles auswählen

 
if (dbf.fieldbyname('xyz').asDate<>NIL  
                                   NULL 
                                   '' 
                                   30.12.1899) then ...
 

führen alle zu einer Fehlermeldung wegen falschem Datentyp. Gibt es eine Möglichkeit ein Datumfeld auf Inhalt zu prüfen?

Schon mal vielen Dank im Voraus.

[wp_xyz]

Leere Datenbankfelder erkennt man mit IsNull:

Code: Alles auswählen

  if dbf.FieldByName('xyz').IsNull then ... 

Hinweis: Es ist schlecht, FieldByName() innerhalb einer Schleife aufrufen, weil dabei jedesmal die Liste aller Felder durchsucht werden soll. Besser ist es, das vor der Schleife zu erledigen und das Feld in einer Variablen zwischenzuspeichern:

Code: Alles auswählen

 
// schlecht
  n := 0;
  dbf.First;
  while not dbf.EoF do begin
    if not dbf.FieldByName('xyz').IsNull then inc(n);
    dbf.Next;
  end;
 
// besser
var
  F: TField;
begin
  F := dbf.FieldByName('xyz');
  dbf.First;
  while not dbf.EoF do begin
    if not F.IsNull then inc(n);
    dbf.Next;
  end;

[and4more]

Danke für die total super Antwort, insbesondere der Bonus-Antwort mit Zwischenspeicherung. Hilft mir extrem weiter. Vielen Dank.