Stringlist

[marabu]

Hallo Manfred,

vielleicht ist dir hiermit eher geholfen:

Delphi-Quellcode:

var
  i, iPos: Integer; // EDIT
  art, s: string;
begin
  // ...
  with := udm.t_SVADR do
  begin
    art := := FieldByName('ART').AsString;
    for i := 1 to 12 do
    begin
      iPos := Succ(Pred(i) * 3);  // EDIT
      s := Trim(Copy(art, iPos, 2));
      if s = '' 
        then FieldByName('ART_' + IntToStr(i)).Clear
        else FieldByName('ART_' + IntToStr(i)).AsString := s;
    end;
  end;
end;

Freundliche Grüße