|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.542 Beiträge
Delphi 11 Alexandria
|
Re: Eingabe mischen
16. Okt 2008, 08:35
Nicht die eleganteste Methode, aber versuch es mal so:
Delphi-Quellcode:
function StrMerge(src: string): string;
var i,j: integer;
begin
SetLength(Result,Length(src));
j := 1;
while Length(src) > 0 do
begin
i := Random(Length(src)) + 1;
Result[j] := src[i];
Delete(src,i,1);
inc(j);
end;
end;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|