Werte werden nicht in Array geschrieben

[Ykcim]

Man bastelt tagelang herum und findet nichts. Dann fragt man die Spezialisten und auf einmal fällt es einem wie Schuppen aus den Haaren...

Ich habe das "-1" vergessen. Ein Array beginnt bei 0 und nicht bei 1.

mit diesem Code funktioniert es!

Delphi-Quellcode:

if (Rows1[10,j]<>'9') and (copy(Rows1[7,j],0,2)=Prozess) then
                    begin
                      k:=k+1;
                      setlength( ColsTEMP,13);
                      setlength(RowsTEMP, Length(ColsTEMP),k);
                      //Daten schreiben
                      RowsTEMP[0,k-1]:=Rows1[0,J];
                      RowsTEMP[1,k-1]:=Rows1[1,J];
                      RowsTEMP[2,k-1]:=Rows1[2,J];
                      RowsTEMP[3,k-1]:=Rows1[3,J];
                      RowsTEMP[4,k-1]:=Rows1[4,J];
                      RowsTEMP[5,k-1]:=Rows1[5,J];
                      RowsTEMP[6,k-1]:=Rows1[6,J];
                      RowsTEMP[7,k-1]:=Rows1[7,J];
                      RowsTEMP[9,k-1]:=Rows1[8,J];
                      RowsTEMP[10,k-1]:=Rows1[9,J];
                      RowsTEMP[11,k-1]:=Rows1[10,J];
                      j:=j+1;
                    end;

In diesem Sinne

Ykcim