Prüfen auf Sonderzeichen? [Gelöst]

[Sharky]

Hai Gerrit89,

hier auch mal ein Ansatz von mir

Delphi-Quellcode:

function Sonderzeichen (const Value : String) : Boolean;
var
  ndx : Integer;
  foo : Boolean;
  aText : String;
begin
  aText := LowerCase (Value);
  ndx := 1;
  foo := False;
  while (ndx <= Length (aText)) AND not (foo) do
  begin
    if not (aText[ndx] IN ['0'..'9','a'..'z']) then
    begin
      foo := True;
    end;
    Inc (ndx);
  end;
  result := foo;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (Sonderzeichen(Edit1.Text)) then
  begin
    ShowMessage ('blubb');
  end;
end;