Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
29. Jun 2007
Hallo Harry,
die Idee hinter meinem Code ist einfach: Ein Wort mit n Buchstaben kann ordnungserhaltend (Position der Zeichen darf nicht verändert werden) auf zwei (Zahl der Freiheitsgrade, Upper- oder Lowercase) hoch n (Zahl der Buchstaben) verschiedene Arten geschrieben werden. Wenn ich die Buchstabenpositionen als die Stellen einer Dualzahl betrachte und festlege, dass für jedes 1-Bit ein...
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
29. Jun 2007
Haarscharf daneben:
procedure VariateCase(s: string; sl: TStrings);
const
LETTERS: set of Char = ;
var
i, skip, n, len: Integer;
begin
len := 0;
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
29. Jun 2007
Hallo Harry,
natürlich sind es nicht 3 * 3 Möglichkeiten, sondern 2 * 2 * 2.
Wenn das Wort auch Zeichen enthält, bei denen Uppercase(char) = Lowercase(char) ist, dann müsste ich an meinem Code zwei kleine Änderungen machen.
Freundliche Grüße
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
29. Jun 2007
Hallo Harry,
ein Wort mit drei Buchstaben hat mitnichten 9 (3 * 3) Variationen:
uses
StrUtils;
procedure VariateCase(s: string; sl: TStrings);
var