Verwaltung & Überwachung von Pflichtpfeldern einer o. mehrerer DB-Tabellen

[shmia]

Wenn man "ganz normal" mit Datasets arbeitet (also ohne abgehobene Konzepte) dann kann man
im Event [TDataset].BeforePost eine Schleife über alle Felder ausführen:

Delphi-Quellcode:

for i := 0 to Dataset.Fields.Count-1 do
begin
  f := Dataset.Fields[i];
  if f.Required and not f.ReadOnly and (f.IsNull or (Trim(f.AsString)='')) then
  begin
    f.FocusControl;
    raise Exception.CreateFmt('Feld <%s> muss einen Inhalt haben', [f.DisplayName]);
  end;
end;