Thema: Delphi Delphi Facharbeit

Einzelnen Beitrag anzeigen

Benutzerbild von rollstuhlfahrer
rollstuhlfahrer

Registriert seit: 1. Aug 2007
Ort: Ludwigshafen am Rhein
1.529 Beiträge
 
Delphi 7 Professional
 
#18

Re: Delphi Facharbeit

  Alt 23. Mai 2010, 00:29
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
Bernhard
Iliacos intra muros peccatur et extra!
  Mit Zitat antworten Zitat