Forum: Sonstige Fragen zu Delphi
Delphi
by gizzy,
20. Apr 2008
Nein, nicht ganz. Bei einen String mit 13 Buchstaben wären das 2^12. Sind gut 4000 Möglichkeiten. Allerdings sind nur namen bis zu 15 Buchstaben erlaubt. Also haut das hin.
Die Lösung klappt und funktionier wunderbar. Danke
Wäre vielleicht ein Vorschlag für die Code Lib, schon ne tolle Idee mit den Bits schieben :-)
Forum: Sonstige Fragen zu Delphi
Delphi
by gizzy,
19. Apr 2008
procedure PermuteCase (s: string; L: TStrings);
var
SL : TStringList;
chars : array of string;
i, j : Integer;
begin
SL := TStringList.Create;
SL.Sorted := True;
SL.Duplicates := dupIgnore;
SL.CaseSensitive := True;
Forum: Sonstige Fragen zu Delphi
Delphi
by gizzy,
19. Apr 2008
Naja, beim Permutieren :)
Forum: Sonstige Fragen zu Delphi
Delphi
by gizzy,
19. Apr 2008
Es Existiert ein Online Spiel.
Von diesem Spiel kann man einen Server aufsetzen. Dieser Server lädt eine Blockliste: "swearnames.txt". In dieser Datei ist 'untereinander' eine Liste der Namen, die nicht für eine Anmeldung genommen werden dürfen.
So sieht diese Liste aus:
Wird ein solcher name gewählt (im Clienten) wird eine Fehlermeldung ausgegeben.
Für jeden Spieler wird eine Datei auf...
Forum: Sonstige Fragen zu Delphi
Delphi
by gizzy,
19. Apr 2008
Die Blackliste ist von einen externen Prgramm! Da kann ich nichts ändern, das ist ja das Problem. Der wird immer Case-Sensitive prüfen, deswegen muss ich mich anpassen. Sonst hätte ich das ja schon längst getan.
Aber das habe ich bereits geschrieben.
Forum: Sonstige Fragen zu Delphi
Delphi
by gizzy,
19. Apr 2008
Na klar, wo wäre den sonst der Sinn der Blacklist :cheer:
Forum: Sonstige Fragen zu Delphi
Delphi
by gizzy,
19. Apr 2008
Weil dann die Blackliste nicht erreicht hat was sie soll, nämlich alle admin möglichkeiten zu blocken! :-D
Ich hab jetzt das Beispiel von Dax mal abgewandelt. Es waren ein paar Syntax Fehler drin. Sah mir am Anfang stark nach ner Endlosschleife aus, aber jetzt bekomme ich eine Zugriffverletzung für meine Stringlist (fals dies mit TStrings gemeint war).
procedure PermuteCase(const s:...
Forum: Sonstige Fragen zu Delphi
Delphi
by gizzy,
19. Apr 2008
Wieso?
Blacklist:
Trotzdem ist "ADMIN", "GameMastEr" und "aDministrator" noch möglich.
Sonst würde ja (wenn nicht Ccase-sensitive) die Angabe "admin" in der Blacklist alle Möglichkeiten auschließen (zb. "Admin", "ADMIN", usw.).
Forum: Sonstige Fragen zu Delphi
Delphi
by gizzy,
19. Apr 2008
Das ist eine "dumme" esterne Datenbank an der ich nicht rumschrauben kann. Und die brauch nunmal alle Möglichkeiten.
Beispiel Online Spiel:
Du kannst dir einen Nicknamen erstellen.
Jetzt könnte sich aber einer "Admin" nennen und somit die anderen Spieler "reinlegen".
Das Spiel Speichert für jeden Nicknamen auf den Server eine Datei.
Es soll weiterhin möglich sein, seinen Nicknamen einmal...
Forum: Sonstige Fragen zu Delphi
Delphi
by gizzy,
19. Apr 2008
Danke schonmal! Aber könntest du vielleicht einwenig nähr darauf eingehen. Permutation ist ja ehr das Anzeigen jeder Kombination.
Test
esTt
setT
sTet
usw..
Ich möchte das gerne haben, da bei einer Regestrierung von einem Account jede Kombination gewählt werden kann. Allerdings möchte ich (da es von extern kommt) innerhalb meines Programmes, alle Möglichkeiten auflisten und somit auf...
Forum: Sonstige Fragen zu Delphi
Delphi
by gizzy,
19. Apr 2008
Unter Unix sind ja namen wie "Datei" und "DatEi" unterschiedlich.
Wie kann ich also per algorhytmus alle Kombination heraus finden?
Heißt für: "aaa" gibt es die Möglichkeiten => "Aaa", "aAa", "aaA", "aAA", "AAA", "AAa", "AaA", "aaa".
Mir gehen langsam die Ideen aus..
das hatte ich bisher, bringt mir aber nur einen Teilen der möglichkeiten und dann noch doppelt:
name:= 'aaa';
For...
