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;