aus char in bestimmen index eines string kopieren

[mkinzler]

Die AV könnte auch woanders auftreten.

[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

[dj-f]

das kan natürlich sein...txt2 ist ja noch vollich lehr.
...muss ich dann so was nehmen wie setlength oder so?

[Klaus01]

Delphi-Quellcode:

txt2:='';
for i:=1 to length(txt1) do
  txt2:= txt2 + ' ';

Grüße
Klaus

[dj-f]

es tuht sich was:
[Warning] Unit1.pas(201): FOR-Loop variable 'i' may be undefined after loop
[Hint] Unit1.pas(195): Value assigned to 'i' never used

[Klaus01]

Versuche mal das:

Delphi-Quellcode:

while length(txt2) < length(txt1) do
  txt2 := txt2 + ' ';

Grüße
Klaus

[wido]

Performancetechnisch gesehen ist die Routine Selbstmord. Ein einfaches SetLength(txt2, length(txt1)) sollte es auch tun :).

[dj-f]

sry habs an der falscen stelle eingefügt ...es klappt...da war das also so einfach :wall: :wall: :wall: :wall: :wall: :wall: :wall: :wall: :wall:


vielen, vielen dank.