取string的左4位怎么做？在线等候！

Question

定义了一个string类型的变量，要取该变量的左四位，怎么做？在线等候！

Answer 1

var
str:string;
begin
str:=copy('12345',1,4);

Answer 2

var
strin,str:string;
begin 
strin:=copy(string,1,4);
同上 老让人抢

Answer 3

可以好好研究一下DELPHI的字符串操作函数，该功能很容易实现，而且不止一种方法。

Answer 4

var
  str:string;
begin
  str:=copy('dfdafdsfadsgfd',1,4);
 怎么好是有人抢在我前头啊

Answer 5

同上
str:=copy('我是中国人',1,8);

Answer 6

在csdn搜索“Delphi代码优化(字符篇)”(该文收集在《程序员》出的书，书名记不清，好象就叫《程序员》2001合订版，分上下册)，文中介绍了尽量避免用Copy函数。改用delete等别的方法。
在http://www.codelphi.com/hanyi/jiqiao/11.html也可以看到这篇文章。篇幅稍大，就不转贴了。

Answer 7

相关底字符串操作函数有：  leftstr()、rightstr()、Copy()知道该用什么函数之后查帮助，对自己更有帮助。
－－－－－－－－－－－－－－－haha,大家为了分数都开始抢了

Answer 8

  leftStr(s,4);
注意要uses strUtils.

Answer 9

var
 str :string;
copy(str,1,4);

Answer 10

艾，来晚了
COPY(),LEFTSTR()都可以