Stringlist

[marabu]

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