Hallo,
ich musste die shuffle Routine noch etwas anpassen:
Delphi-Quellcode:
procedure Shuffle(var s: String);
var
i, j: integer;
temp : Char;
begin
for i := length(s) downto 1 do
begin
j := Random(i)+1;
temp := s[i];
s[i] := s[j];
s[j] := temp;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s: String;
begin
s:= Edit1.Text;
shuffle(s);
Edit1.Text:=s;
end;
Grüße
Klaus
Ich verstehe nicht, wieso das funktioniert wenn die Shuffle-Procedure kein Rückgabewert hat?