请问如何截取字符串？

Question

s := '370、366、368系列净水器顾客反映滤心不出水，造成顾客退换货。YLRS2-5K/BX-20出水有  
       异味。'; //510其字符长度为 510.现在想从该字符串中截取长度为100的字符，请问如何解决！

Answer 1

MidStr(所在单元：StrUtils)
　　功能说明：返回指定范围内的字符串。该函数有三个参数。第一个参数为源字符串，第二个参数为起点，第三个参数为结束点。通过第二、第三个参数则可指定要复制字符串的范围。
Copy函数与此函数类似。MidStr主要用于处理含有中文字符的字符串。
　　参考实例：
　　var
　　 　S: String;
　　 　H: String;
　　begin
　　 　S := MidStr('China', 1, 2); // S变量为Ch
　　 　H := MidStr('电脑报', 1, 1); // H变量为"电"。如果使用Copy函数，则应是H := Copy('电脑报, 1, 2)，否则返回的将不是"电"字。因此在使用操作含有中文的字符串时，最好使用MidStr。
　　end;

Answer 2

赵玲Delphi函数库 1.90软件大小：936KB
软件语言：简体中文
软件类别：国产软件/共享版/编程工具
运行环境：Win9x/Me/NT/2000/XP
加入时间：2004-9-3 19:49:53
下载次数：2809
软件评级：
在线注册：
联 系 人：[email protected]
开 发 商：未知 [收藏此页]感谢Delphi鸟窝的兄弟们长期以来对本人编程方面的帮助。为答谢Delphi鸟窝的兄弟们，方便大家工作、学习特为大家制作了一款《赵玲Delphi函数库》程序。它是用来方便查阅及编辑Delphi及其它编程工具中的函数资料的。欢迎大家踊跃下载及传播。 
下载地址：http://www.onlinedown.net/soft/34549.htm
我感觉还是不错的，：）