Enthält String bestimmte Zeichen

[Sharky]

Hai Jelly,

ich habe das jetzt weiter geprüft aber eventuell ist ja TRegExpr etwas für dich?

Aber mit einer kleinen Schleife solltest Du das auch ganz schnell mit Boardmitteln machen können.

Delphi-Quellcode:

type
  TCharSet = set of char;

function CharInString(aString: string; achars: TCharSet): boolean;
var
  ndx: integer;
begin
  Result := True;
  for ndx := 1 to Length(aString) do
  begin
    if not (aString[ndx] in achars) then
    begin
      Result := False;
      exit;
    end;
  end;
end;

procedure TForm1.btn_StringTestClick(Sender: TObject);
begin
  if not (CharInString('Test',['a'..'z'])) then
  begin
    ShowMessage('blubb');
  end;
end;