Stringlist

[manfred_h]

Hallo Marabu

bin am experimentieren mit dem Code den ich von Dir erhalten habe.
An einem Punkt komme ich nicht ganz klar.

Habe das ganze bis jetzt wie folgt angepasst:

Delphi-Quellcode:

         begin
          // ...
          with fib_ds_svadr do
          begin
            art := FieldByName('ART').AsString;
            for anz := 1 to 12 do
            begin
              s := Trim(Copy(art, iPos ,2));
              if s = ''
                then FieldByName('ART_' + IntToStr(anz)).Clear
                else FieldByName('ART_' + IntToStr(anz)).AsString := s;
            end;
          end;
        end;

mit dieser Zeile habe ich Probleme:
s := Trim(Copy(art, iPos ,2)); Was ist iPos ?? habe schon mit Pos rumgetestet aber leider ohne den gewünschten Erfolg.
Hast Du hier noch einen Tipp.
( i habe ich durch anz ersetzt weil i schon verwendet wird )

Grüsse aus Basel
Manfred