一个简单的问题：字符窜分解

Question

ss := '中国青年[1990]第3期';
a1 := Copy(ss,1,POS('[',ss)-1);
a2 := Copy(ss,POS('[',ss)+1,POS(']',ss)-POS('[',ss)-1);
a3 := Copy(ss,POS('第',ss)+2,POS('期',ss)-POS('第',ss)-1);

Answer 1

procedure TForm1.BitBtn2Click(Sender: TObject);
var
  str:string;
begin
  str:='中国青年[1990]第3期';
  showmessage(copy(str,1,8));
  showmessage(copy(str,10,4));
  showmessage(copy(str,17,1));
end;

Answer 2

请问：怎么取得n个同样的字符串之和。(返回n个str串之和)
就像 SQL Server的Replicate(character_expression,integer_expression)函数一样有没有标准函数？ 

Answer 3

请问：怎么取得n个同样的字符串之和。(返回n个str串之和)
就像 SQL Server的Replicate(character_expression,integer_expression)函数一样有没有标准函数？