Hallo Manfred,
eine wichtige Zeile habe ich offensichtlich vergessen hinzuschreiben:
Delphi-Quellcode:
for anz := 1 to 12 do
begin
iPos := Succ(Pred(i) * 3); // Startposition im Gesamtstring
s := Trim(Copy(art, iPos , 2));
// ...
end;
Freundliche Grüße