tach,
ich hab bis montag früh ein problem zu lösen:
ich will aus einem array of char ein durch variable indizes bestimmtes zeichen in ein string an eine bestimmte stelle einfügen und der compiler spricht immer eine warnung aus. er combiliert es zwar, aber wenn die entsprechende procedur dran ist streikt er. genauer geht es um polyalphabetische verschlüsselung mit wechselnden matrizen.
Delphi-Quellcode:
type TMatrix= array[1..10,1..26,1..26]of char;
var f, k, n,i,j:integer; //n ist die nummer der verwendeten Marix und vorher deffiniert.
txt1,txt2, pass:string; //txt1 ist original, txt2 verschüsselt
X:TMatrix; //wird voher mit kleinen buchstaben gefüllt wie 10 sudokus.(so, dass in einer spalte kein buchstabe doppelt vonkommt usw.)
... begin
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...
thx schonmal im voraus...