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 :dp:,

Zitat:

Zitat von BastiSchulze1 (Beitrag 1190058)

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:

Zitat von BastiSchulze1 (Beitrag 1190058)

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. :D 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:

Zitat von DeddyH (Beitrag 1190069)

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);

:mrgreen: