Zufallsgenerator

[joel93]

Ich brauche nen zufallsgenerator, der den Inhalt von edit1 zu edit2 durcheinander wirft!
Kann mir einer helfen?

[3_of_8]

Was meinst du? Permutationen? Also zum Beispiel so:

edit1.text: wuppdi
edit2.text puwipd

Das ginge so:

Delphi-Quellcode:

function MakeAnagram(str: string): string;
var I, n, r: Integer;
    c: Char;
begin
  result:=str;
  n:=length(result);
  for I:=1 to n do
  begin
    r:=i+random(n-I);
    c:=result[I];
    result[I]:=result[r];
    result[r]:=c;
  end;
end;

EDIT: Mit einer kleinen Änderung ist sogar ein 1 MB String fix verarbeitet.

[joel93]

entschuldige die dumme frage aber wie kann ich die function entsprechend aufrufen?

[Neutral General]

Edit2.Text := MakeAnagram(Edit1.Text); so

Gruß
Neutral General

[joel93]

Danke an beide!
Nur ein problem gibt es noch!


Wenn ich etwas eintippe
zb. 18d4 kommt im Ergebnis am ende immer dei 4
zb. d4df kommt im Ergebnis am ende immer das f
zb. 38fsdfh? kommt im Ergebnis am ende immer das ?
egal was ich tue und drücke!

...Und so weiter...

[Klaus01]

Hallo Joel,

schau Dir mal diesen Thread dazu an, dort findest Du auch die Lösung
zu Deinem Problem: -> http://www.delphipraxis.net/internal...ct.php?t=88372

Grüße
Klaus

[DGL-luke]

Da würd ich doch ne Lottoziehung bauen...

Delphi-Quellcode:

function StringShuffle(s: string): string;
var i: Integer;
begin
Result := '';
while length(s) > 0 do
  begin
    i := Random(length(s)-1) +1; //laut Dok bis < Range, deswegen das -1
    Result := Result + s[i];
    Delete(s,i,1);
  end;
end;

Ich nehme also einen zufälligen Wert aus dem alten string raus, tu ihn an den neuen dran und lösch ihn im alten. und das so lange, bis der alte leer ist.

[joel93]

Hab nen passenden Code gefunden :

Delphi-Quellcode:

function Anagram(const s: String): String;
var
  i, iRandom, iLast: Integer;
  c: Char;
begin
  Result := s;
  iLast := Length(s);
  for i := 1 to Pred(iLast) do
  begin
    iRandom := Succ(Random(i));
    c := Result[iLast];
    Result[iLast] := Result[iRandom];
    Result[iRandom] := c;
  end;
end;

Hier ist das vertige Beispielprog:

[ManuMF]

Auch das randomize; nicht vergessen gehabt?

[joel93]

???randomize; ???