去年的写过关于跨平台的字符串代码，发现没说明白，自己都看糊涂了。于是做了这样的测试：
procedure TForm3.Button1Click(Sender: TObject);
var
I: Integer;
s:string;
begin
s:='0123456789';
for I := 0 to s.length-1 do
begin
memo1.Lines.Add(s.Chars[i]);
end;
end;
上面的代码，分解一个字符串的每个字符，用Memo显示出来。看看win32与android下的显示结果：
再说说Delphi跨平台的字符串代码标准再说说Delphi跨平台的字符串代码标准
结果是一样一样的，说明什么呢？
如果让一套代码适应跨平台，要用String来处理字符串，同时用StringHelper或StringBuilder来辅助实现代码，并且，字符串的下标都是从0开始的。
后记：对于使用的Pos函数，用IndexOf取代。
i:=Pos(s1,s2)
改写成:
i:=s2.IndexOf(s1,0);
注意：Pos从1开始的，而IndexOf从0开始的。当查不到子串时，Pos返回是0，而IndexOf返回-1.
来源 http://blog.sina.com.cn/s/blog_44fa172f0101rtex.html
关键字词:
