aus char in bestimmen index eines string kopieren

[Klaus01]

Es scheint das txt2 in der Länge nicht mit txt1 übereinstimmt.
Dann kann es zu dem Fehler kommen das auf ein Index von txt2 zugegriffen wird
der nicht vorhanden ist.

Delphi-Quellcode:

  
  for f:=1 to length(txt1) do
    begin
      k:=k+1;
      if k>length(pass)then
        begin
          k:=1;
          n:=n+1;
          if n>10 then
            n:=1;
        end;
      if (ord(txt1[f])>96) and (ord(txt1[f])<123)then
        begin
          i:=0;
          j:=0;
          repeat
             j:=j+1
          until X[n,j,1]=txt1[f];
          repeat
            i:=i+1 until X[n,1,i]=pass[k];

          if length(txt2) >= f then
            txt2[f]:=X[n,j,i];  //geht nicht
        end
      else
        if length(txt2) >= f then
          txt2[f]:=txt1[f]; //geht auch nicht!!
    end

Grüße
Klaus