ES läuft !!
Besten Dank für Eure Tipps und speziell Dir Marabu!!
Delphi-Quellcode:
begin
with fib_ds_svadr do
begin
art := FieldByName('ART').AsString;
for anz := 1 to 12 do
begin
iPos := Succ(Pred(anz) * 3); // Startposition im Gesamtstring
s := Trim(Copy(art, iPos , 2));
if s = ''
then FieldByName('ART_' + IntToStr(anz)).Clear
else FieldByName('ART_' + IntToStr(anz)).AsString := s;
end;
end;
end;
( i habe ich durch anz ersetzt weil i schon verwendet wird )
Shalom
Manfred