Char from set in string?

[WojTec]

Delphi-Quellcode:

const
  ParamSeps = ['=', ':', '?'];

Delphi-Quellcode:

P := Pos('=', AIn);
if P = 0 then
begin
  P := Pos(':', AIn);
  
  if P = 0 then
    P := Pos('?', AIn)
  ;
end;

Is possible to check if char is in text using above set instead if-block and Pos()?

[p80286]

An other way might be

Delphi-Quellcode:

i:=0;
repeat
  inc(i,1);
until (i>length(aIn)) or (aIn[i] in ParamSeps);
if I>length(aIn) then //sepchar found

K-H

[Bummi]

Delphi-Quellcode:

const
  ParamSeps = ['=', ':', '?'];

Function SetCharPos(Const s:String):Integer;
var
 i:Integer;
begin
  Result := 0;
  i := 1;
  while (Result=0) and (i<=Length(s)) do
    begin
       if s[i] in ParamSeps  then  Result := i
       else inc(i);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Caption := IntToStr(SetCharPos('That?'))
end;

[WojTec]

O, quite simple, thanks :)