|
Registriert seit: 31. Jul 2003
Ort: Dresden
1.386 Beiträge
Delphi 7 Architect
|
Re: String "mischen"
18. Sep 2003, 07:29
Delphi-Quellcode:
function MixString(sOrg : String) : String;
...
randomize;
Result := '';
while Length(sOrg) > 0 do
begin
i := Random(Length(sOrg) + 1);
Result := Result + sOrg[I];
Delete(sOrg, I, 1);
end;
Achtung: nicht getestet, sondern aus dem Ärmel geschüttelt
- ciao neo -
Es gibt niemals dumme Fragen, sondern nur dumme Antworten!
|