Verschiebung der Zeichen eines Strings !HILFE!

[BastiSchulze1]

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 .

[DeddyH]

Hallo und Willkommen in der DP ,

Zitat von BastiSchulze1:

Ich bekomme eine Error Meldung, die ich nicht deuten kann.

und welche?

P.S.: Schließe doch bitte Delphi-Code in Delphi-Tags ein, dann wird er auch formatiert dargestellt. Dazu kannst Du im Beitragseditor die "Helm"-Schaltfläche benutzen.

[Sir Rufo]

Hallo und willkommen!

Bitte setze deinen Quelltext in die Delphi-Tags

Code:

[DELPHI]
procedure Foo;
begin

end;
[/DELPHI]

Ergebnis:

Delphi-Quellcode:

procedure Foo;
begin

end;

[Jens Hartmann]

Hallo,

http://de.wikipedia.org/wiki/Logische_Verschiebung

MFG

Jens

[nuclearping]

Zitat von BastiSchulze1:

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:

Delphi-Quellcode:

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 .

1) Du musst BinarySwapped vorher eine Länge geben. Weil sonst ist der String nämlich leer, Länge 0. Wenn du dann auf Index 1 (BinarySwapped[1]) zugreifen willst, gibt's ne Zugriffsverletzung, weil kein Speicherbereich für den String reserviert wurde. Also: SetLength(BinarySwapped, Length(Binary));

2) Wenn ich das so sehe, rollen sich mir die Fußnägel hoch. Warum arbeitest du mit Strings? Nicht nur, dass es unglaublich langsam ist, machst du hier eine Operation durch's Knie in's Auge. Warum arbeitest du nicht mit den Byte-Werten und schiebst dann mit SHL und SHR?

[DeddyH]

Ihr habt aber schon bemerkt, dass bei einem Bitshifting nicht das gewünschte Ergebnis herauskommt?

[Bummi]

ich denke gemeint war

Delphi-Quellcode:

Function ROR(b:Byte):Byte;
asm
  ror al,1;
end;

[stahli]

Ich denke mal, dass es eher auf eine einfache Lösung einer Aufgabenstellung mit Strings ankommt...

Vielleicht hilft Dir das ungefähr weiter (ungetestet auf die Schnelle):

Delphi-Quellcode:

function MoveString(S: String; P: Integer; ToLeft: Boolean);
var
  L: Integer;
begin
  if S = '' then
    Exit('');
  if (P < 1) or (P > 8) then
    Exit('');
  if P = 0 then
    Exit(S);
  L := Length(S);
  if ToLeft then
    Result := Copy(S, P + 1) + Copy(S, 1, P)
  else
    Result := Copy(S, L - P) + Copy(S, 1, P - 1); 
end;

[nuclearping]

Zitat von DeddyH:

Ihr habt aber schon bemerkt, dass bei einem Bitshifting nicht das gewünschte Ergebnis herauskommt?

Stimmt.

Dann irgendwie so:

Delphi-Quellcode:

B := 97; // 01100001
V := 2;
Result := (B SHL 8 - V) OR (B SHR V);