Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
Delphi 12 Athens
|
AW: String auf Zeichen prüfen
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
|