String "mischen"

[anku]

versuch es mal so:

Delphi-Quellcode:

var sOrginal, sKopie, sEndproduckt: String;
    i, Zufall: Integer;

begin
 randomize; // am besten bei programmstart ausführen, da sonst of gleiche "zufalls" ergebnisse kommen
 for i:= 1 to length( sOrginal) do
  sKopie[i]:= Chr(255); // mit platzhalter füllen
 for i:= l to length( sOrginal) do
   while true do //solange loopen bis freie stelle gefunden
   begin
     Zufall:= random( Length( sOrginal))+1; //Zufallstelle
     if sKopie[ Zufall] = Chr(255) then begin 
       sKopie[Zufall]:= sOrginal[i]; 
       break; // aus der while schleife springen
     end;
   end;
end;

oder so ähnlich..

mfg