die fehlermeldung ist:"[Warning]: Unsafe code 'String index to var param'"
und die schleife um alles herum hier ,wenn du alles haben willst:
Delphi-Quellcode:
for f:=1 to length(txt1)
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];
txt2[f]:=X[n,j,i]; //geht nicht
end
else
txt2[f]:=txt1[f]; //geht auch nicht!!
end...