Forum: Object-Pascal / Delphi-Language
by Klaus01,
16. Okt 2008
Hallo,
ich musste die shuffle Routine noch etwas anpassen:
procedure Shuffle(var s: String);
var
i, j: integer;
temp : Char;
begin
Forum: Object-Pascal / Delphi-Language
by Klaus01,
16. Okt 2008
Wo mosert denn der Lazarus?
Grüße
Klaus
Forum: Object-Pascal / Delphi-Language
by Klaus01,
16. Okt 2008
Sollte in etwas so gehen:
procedure Shuffle(var s: String);
var
i, j: integer;
temp : Char;
begin
for i := length(s)-1 downto 1 do
begin
j := Random(i);
Forum: Object-Pascal / Delphi-Language
by Klaus01,
16. Okt 2008
Guten Morgen,
schau Dir doch mal die Routine am Ende dieses Beitrags an.
.. und wenn Du magst, lese auch den ganzen Thread, liest sich sehr interessant.
Grüße
Klaus