Delphi XE7 随笔（1）- 字符串

先来记一个比较操蛋的东西

var
  str:string;
  n:integer;
begin
    str:='adf中33aa3bb';
    n:=str.Length;
    n:=str.IndexOf('a');    //0
    n:=Pos('a',str);    //1
    ShowMessage(str.Substring(1,3));    //df中
    ShowMessage(Copy(str,1,3));    //adf
end;

这就相当不友好了嘛，稍不注意就会用错函数！