String auf Zeichen prüfen

[LTE5]

Vielleicht auch so. Sobald ein nicht erlaubtes Zeichen drin steht, gehts nicht weiter

Delphi-Quellcode:

var
 i: Integer;
begin
 Caption := 'Jä';

 for i := 1 to Length(Edit1.Text) do
  begin
   if not CharInSet(Edit1.Text[i], ['a' .. 'z', 'A' .. 'Z', '0' .. '9']) then
    begin
     Caption := 'Nä';
     Break;
    end;
  end;

end;

Das könnte man beispielsweise in eine Funktion packen. Aber man sollte bei einem Passwort eh noch mehr als azAZ09 erlauben.

ggf lässt sich aber auch hier draus was bauen

Delphi-Quellcode:

var
 i: Integer;
 Upper, Lower, Numbers: Boolean;
begin
 Upper := False;
 Lower := False;
 Numbers := False;

 Caption := 'Jä';

 for i := 1 to Length(Edit1.Text) do
  begin
   Upper := CharInSet(Edit1.Text[i], ['A' .. 'Z']);
   Lower := CharInSet(Edit1.Text[i], ['a' .. 'z']);
   Numbers := CharInSet(Edit1.Text[i], ['0' .. '9']);
  ...
  end;