截取字符串的方法

atiger

参考代码如下：

var
  lstr :string;
begin
  lstr :='abcd';
  caption:=lstr.Substring(0,2);
end;