Bei nur zwölf möglichen Werten ist es vorteilhafter jedem Wert ein Feld zu spendieren - das vereinfacht Auswertungen kollosal.
Delphi-Quellcode:
with TStringList.Create do
try
CommaText := udm.t_SVADR.FieldByName('ART').AsString;
for i := 0 to Pred(Count) do
FieldByName('ART_' + Strings[i).AsBoolean := True;
finally
Free;
end;
Gute Nacht