String verdrehen

[fortuneNext]

^Hi,
hier mal wieder eine einfache Frage.

Delphi-Quellcode:

  StringCopy := Uncrypted;
  x := 0;
  Randomize;
  For x := 1 to Length(Uncrypted) do
  begin
    StringCopy[x] := Uncrypted[Random(Length(Uncrypted))];
  end;

StringCopy soll eigentlicheine zufällige Reihenfolge von Buchstaben des Strings Uncrypted werden. Aber er wird irgendwie meistens zu kurz, nur 1-2 Buchstaben! (Uncrypted ist 4-9 Buchstaben lang). Wieso das?
fortuneNext

PS: Jaja, ich überseh wieder was sehr simples...

[guidok]

...weil eine Zufallszahl auch mehrmals die gleiche sein kann.

[RavenIV]

Ich glaube, zwei Denkfehler gefunden zu haben.

a) die for-Schleife darf nur bis Length(...) -1 laufen.
Begründung: Sonst liesst Du zuviele Werte aus.
b) es muss Random(Length(...) -1) heissen.
Begründung: Ein string ist mit "\0" abgeschlossen.
Wenn Du bis über das string-Ende rausliesst, liesst Du das "\0" mit aus.
Damit ist der string x schon frühzeitig beendet.

Wie wäre es, wenn Du mal den Debugger anschmeisst und schaust, wann und warum der string x zu kurz wird.
Alles andere sind nur Vermutungen...

[Apollonius]

Ich glaube ihr überseht gerade etwas wichtiges, fortuneNext und RavenIV. Strings werden mit 1 bis Length(Str) indiziert, Random geht aber von 0 bis Parameter-1. Folglich muss zu Random noch 1 addiert werden.

[fortuneNext]

Das ist es. Danke!

[DeddyH]

Dir ist aber klar, dass Du wahrscheinich nicht die selben Buchstaben wie im Original erhältst?