Hallo,
dann musst du eine Übersetzung vorsehen:
Delphi-Quellcode:
with TStringList.Create do
try
CommaText := udm.t_SVADR.FieldByName('ART').AsString;
for i := 0 to Pred(Count) do
FieldByName('ART_' + IntToStr(Succ(AnsiIndexText(Strings[i], [
'AK', 'SH', '36', 'VA', 'DV', 'EZ' { ... }
])))).AsBoolean := True;
finally
Free;
end;
Aber warum willst du das Feld ART_12 nennen und nicht ART_EZ?
Freundliche Grüße