Thema: Delphi String verdrehen

Einzelnen Beitrag anzeigen

fortuneNext

Registriert seit: 11. Aug 2007
Ort: Neuss
133 Beiträge
 
Delphi 7 Enterprise
 
#1

String verdrehen

  Alt 21. Feb 2008, 14:15
^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...
Tim
"Hilfe & Support konnte nicht geöffnet werden. Bitte öffnen sie Hilfe & Support, um das Problem zu beheben."
"No Keyboard found. Press F1 to continue."
  Mit Zitat antworten Zitat