Werte werden nicht in Array geschrieben

[Ykcim]

Hallo Zusammen,

ich habe ein Problem, bei welchem ich nicht weiterkomme, zumal es an anderer Stelle nicht auftritt.

Ich habe folgendes Array:

Delphi-Quellcode:

type
  TRows = array of array of string; // [Cols, Rows]
  TCols = array of string;

Das Array, in welches ich schreiben möchte, heißt RowsTEMP und ist vom Typ TRows.

Jedes Mal, bevor ich in das Array schreiben, füge ich eine weitere Zeile hinzu, da ich vorher nie weiß, wieviele Zeilen es werden.

Hier das Code-Fragment:

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]:=Rows1[0,J];
                      RowsTEMP[1,k]:=Rows1[1,J];
                      RowsTEMP[2,k]:=Rows1[2,J];
                      RowsTEMP[3,k]:=Rows1[3,J];
                      RowsTEMP[4,k]:=Rows1[4,J];
                      RowsTEMP[5,k]:=Rows1[5,J];
                      RowsTEMP[6,k]:=Rows1[6,J];
                      RowsTEMP[7,k]:=Rows1[7,J];
                      RowsTEMP[9,k]:=Rows1[8,J];
                      RowsTEMP[10,k]:=Rows1[9,J];
                      RowsTEMP[11,k]:=Rows1[10,J];
                      j:=j+1;
                    end;

Aus irgendeinem Grund werden die Daten aus dem Array Rows1 nicht in das Array RowsTEMP geschrieben. Ich bin im Debug-Modus durchgegangen. In dem Array Rows1[0,J] steht der Wert '165413'. Wenn ich den Wert RowsTEMP[0,k] überwache, wird dieser mir mit dem gleichen Wert ausgewiesen. Gucke ich aber ganz allgemein in das Array RowsTEMP, dann sehe ich, dass dort keine Werte reingeschrieben werden.

Ich habe ein Bild angehängt, um die überwachten Variablen anzuzeigen...

Kennt jemand das Probelm und hat vielleicht jemand eine Lösung dafür?

Vielen Dank

Ykcim