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