Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#5

AW: String auf Zeichen prüfen

  Alt 26. Jan 2018, 12:37
Ungetestet:
Delphi-Quellcode:
function ValidPW(const s: string): Boolean;
var
  ContainsUpper: Boolean;
  ContainsLower: Boolean;
  ContainsNumber: Boolean;
  c: char;
begin
  ContainsUpper := false;
  ContainsLower := false;
  ContainsNumber := false;
  Result := false;
  for c in s do
    begin
      if CharInSet(c, ['0'..'9']) then
        ContainsNumber := true
      else if c = AnsiUpperCase(c) then
        ContainsUpper := true
      else if c = AnsiLowerCase(c) then
        ContainsLower := true;
      Result := ContainsUpper and ContainsLower and ContainsNumber;
      if Result then
        break;
    end;
end;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat