我想在delphi中取一段字符串中的一段字符，字符不是固定长度

Question

比如 daj3333_2131中3333 不过3333不是固定长度的字符，后面固定有个_字符，怎么取？

Answer 1

比如 一个 ‘daj3333_2131’ 中 取中间‘3333’这4个数 不过不一定是‘3333’ 是个不固定长度的字符，但是它后面固定有个‘_’字符，怎么取？ 可行了？

Answer 2

比如 ‘daj3333_2131’中 我想取‘3333’ 不过不一定是‘3333’，它不是固定长度的字符，但是它后面固定有个‘_’字符，怎么取？

Answer 3

你是想说你要截取‘_’之前的字符吗？daj3333_2131你要截取daj3333，好办,但是你要截取3333，就有点难度了~

Answer 4

先确定'_'的位置m，然后向前搜索直到不是3的止（位置n)
可以通过copy()函数获取。function getstr(scrstr:string):string;
var
  n,m:integer;
  tempstr:string;
begin
  m:=pos('_',scrstr);
  if m>1 then
  begin
    n:=m-1;
    while copy(scrstr,n,1)=3 and n>0 do
      n:=n-1;
    result:=copy(scrstr,n+1,m-n-1);
  end
  else
    result:='';
end;

Answer 5

那你的daj是不是固定的格式呢？