was heißt: "zu oft verschlüsselt"??
und deine Prüfmethode ob nur erlaubte Zeichen in dem Eingabefeld stehen ist der letzte Müll. Es muss nur 1 Zeichen drin sein und schon meint die, es wären nur gültige Zeichen drin. Meint sie, es wären nur ungültige Zeichen drin, dann kommt irgendwas zufälliges raus, weil v nicht initialisiert ist.
Mach doch ne eigene Funktion mit booleschem Rückgabewert, die prüft, ob ein String nur gültige Zeichen enthällt.
z.B.:
Delphi-Quellcode:
function GueltigerString(Eingabe, GueligeZeichen: String): boolean; // (c) by Bernhard Wendel (wenn, dann alles übernehmen)
var i: Integer;
begin
Result := true;
for i := 1 to Length(Eingabe) do
begin
if Pos(Eingabe[i], GueltigeZeichen) = -1 then
begin
Result := false;
Exit;
end;
end;
end;
Bernhard