Zufallswörter

[omata]

@alzaimar:

Bei nur einem Zeichen kommt bei deiner Variante keine Möglichkeit heraus.
Bei zwei Zeichen nur 1 Möglichkeit.
Bei drei Zeichen nur 5 Möglichkeiten.

irgendwie fehlt da immer eine, oder übersehe ist da jetzt was?

Ausserdem sehe ich gerade das da das Schlüsselwort var fehlt und die Variablendeklaration von i.
besser ist...

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
Const
  sLetters = 'URLTKADPE';
var f,i : Integer;

Es werden zusätzlich auch noch Warnungen ausgeschmissen.
besser ist...
Function NthPermutation (const aString : AnsiString; aCount : Cardinal) : AnsiString; Warum Integer, wenn negative Zahlen nicht vorkommen können?


MfG
Thorsten