Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by nuclearping,
6. Nov 2012
Stimmt.
Dann irgendwie so:B := 97; // 01100001
V := 2;
Result := (B SHL 8 - V) OR (B SHR V);
:mrgreen:
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by nuclearping,
6. Nov 2012
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) 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...