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

Was meinst du? Permutationen? Also zum Beispiel so:

edit1.text: wuppdi
edit2.text puwipd

Das ginge so:

zusammenfalten · markieren

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.

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

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

Gruß
Neutral General

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...

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

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

zusammenfalten · markieren

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.

Hab nen passenden Code gefunden :

zusammenfalten · markieren

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:

Auch das randomize; nicht vergessen gehabt?

???randomize; ???