如何取出字符串中的任何一个字符

Question

请指教（最好能给出一个例子）

Answer 1

var
  s:string;
begin
  s:='123456';
  for i:=1 to length(s) do
    showmessage(s[i]);
end;

Answer 2

s:String;
s := Edit1.Text;
for i := 1 to userlen do
  begin
    temp := userlen * CYJY;
    temp1 := Integer(s[i]) * $2053;
    sum := temp1 + sum + temp ;
  end;

Answer 3

var
  x,y:integer;s:='12345';
s:=copy(s,X,Y);   x:从第几位起；y：取几位

Answer 4

哈哈，你们真快啊。
copy函数不就可以吗？

Answer 5

STRING类型在DELPHI中是一个动态分配的字符串类型,在OBJECT PASCAL中其实是一个记录类型,它真正存放字符的变量也是一个动态字符数组 array of char,只不过DELPHI中对它做了所有的内存分配和释放过程,
STRING的第一个也就是s[0]就是长度,从s[1]到LENGTH(s)全是实际用字符,要取任意一个字符,可以通过s[i] i>0就行了,
要注意的是在对STRING进行 + 操作是很耗时的,动态带来的是方便,损失的是性能,两者权衡还是可行的.