从字符串中截取若干字符问题？

Question

sStr,sx,ss: String;
sStr := TRIM('第xxxx天工作计划');
sx := Copy(sStr,3,POS('天',sStr)-3);  //xxxxxx
ss := Copy(sStr,Length(sStr)-7,8);

Answer 1

procedure TForm1.BitBtn1Click(Sender: TObject);
const
  cStart = '第';
  cEnd = '天';
var
  S: string;
  V1, V2: string;
begin
  S := '第0123456789天工作总结';
  V1 := Copy(S, Length(cStart) + 1, Pos(cEnd, S) - Length(cEnd) - 1);
  V2 := Copy(S, Pos(cEnd, S) + Length(cEnd), MaxInt);
  Caption := '[' + V1 + '|' + V2 + ']';
end;