分解字符串

Question

var
  LoopCount: int;
  str: string;
  pstr: PChar;
  ch: char;
begin
  str := '12345';
  pstr := PChar(str);
  for LoopCount := 1 to 5 
    ch := pstr[LoopCount]; //自行处理
end;

Answer 1

用COPY函数或用：st[1]、st[2]、st[3]、st[4]、st[5]

Answer 2

你把你需要的用法写来（函数的入口/出口），这样可以让你直接去用。当然，你这个问题其实很简单的,因为字串本身就可以用下标索引指定位置的字符，如：s[1]就是第一个字符（对AnsiString和ShortString都可用）。

Answer 3

在我的程序中用s[1]报有错误,
还是换成pchar好一点吧
//thank all