新手求助：如何截取不规则但有规律可循的一系列字符串？

Question

我这有一系列字符串：1.1第29周五，12.12第30周三，1.5第8周四，想把这些字符串从“第”字前截断，分成两部分，用什么函数？如何操作？

Answer 1

自己写一个循环进行查找并拷贝字符串
查找用pos函数， 拷贝用copy， 自己看帮助吧。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  source: string;
  str1, str2 : string;
begin
  source := '1.1第29周五';
  str1 := copy(source, 1, pos('第', source)-1);
  str2 := copy(source, pos('第', source)+2, length(source));
  showmessage(str1);
  showmessage(str2);
end;

Answer 3

谢谢你，麻花！这个问题困绕了我一天，现在终于解决了，非常感谢！把分送给别人怎么送？刚上csdn，还不太会用。