Zitat von
marabu:
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;
Hallo Marabu
leider komme ich nicht ganz klar mit Deinem Codebeispiel ( bin mir sicher das es für Dich absolut logisch ist ).
Die Werte PA BS 10 VA EZ...................EZ können völlg verschieden sein.
Das einzig feste ist das immer 2 Werte von einem Leerzeichen unterbochen werden. "Leerwerte" also nur 2 Leerzeichen die von einem Leerzeichen "getrennt" werden bestehen leider auch. ( Siehe Anhang )
Besteht eine Möglichkeit die Positionen anzusprechen ( bin schon die ganze Zeit in der Online-Suche ).
Danke für Eure Tipps
Manfred