Hey, ich habe vor bei meinem 8-Stelligen String, jedes Zeichen um einen gewissen Faktor nach rechts bzw. nach Links zu verschieben. Also wenn die Variable 2 wäre und nach rechts verschoben wird sähe das ganze so aus:

01100001 --> 10110000 --> 01011000

Das ist mein bisheriger Ansatz:


function TForm1.Encryption (Binary:String) :string;
var n,k: Integer;
BinarySwapped:string;
begin

For k:=1 to SpinEdit1.Value do begin
Case RadioGroup.ItemIndex of
0: begin BinarySwapped[1]:=Binary[8];
For n:=2 to 8 do
BinarySwapped[n]:=Binary[n-1];
end;
1: begin
BinarySwapped[8]:=Binary[1];
For n:=7 downto 1 do
BinarySwapped[n]:=Binary[n+1];
end;
end;
end;
result:=BinarySwapped;
end;

Ich bekomme eine Error Meldung, die ich nicht deuten kann. Das Programm lässt sich jedoch ohne Probleme öffnen/testen, es werden keine Fehler erkannt .