字符串位置

Question

s:='pnl_2_3'
我想知道S 中第二个别‘_’的位置是多少，可以吗。

Answer 1

uses StrUtils;
var
  i: Integer;
  S: String;
begin
  S := 'pnl_2_3';
  i := Pos('_', S);//First '_'
  if i > 0 then
  begin
    i := PosEx('_', S,  i + 1);//Second '_'
    ShowMessage(IntToStr(i));
  end;
end;

Answer 2

for i := 0 to 1 do
begin
  k := pos('_', s);
  Delete(s, 1, k);
end;
result := k;