这个字符串中的字符怎么一个个取出来

Question

i_allstring := '8号台1-7号位,220.164.250.222,0,1,0,;1,8号台路珠';
procedure Tw_main.Timer1Timer(Sender: TObject);
begin
  edit1.text := edit1.text +i_allstring[j];
  j := j + 1;
end;如果这样的话,edit1里一个汉子也没有,只有字母和数字,也有符号

Answer 1

MCSB问题
这样看看了：
procedure Tw_main.Timer1Timer(Sender: TObject);
begin
  s := s +i_allstring[j];
  edit1.text := s;
  j := j + 1;
end;
S是全局的

Answer 2

碰到汉字你必须取两个字节
procedure Tw_main.Timer1Timer(Sender: TObject);
begin
  edit1.text := edit1.text +i_allstring[j];
  if IsDBCSLeadByte(Byte(i_allstring[j])) then
    begin
      edit1.text := edit1.text +i_allstring[j+1];
      j := j + 2;
    end
  else
    j:=j+1;
end;最后，请及时结帖，大家挣分都不容易。

Answer 3

ly_liuyang(Liu Yang)我的和你的差不多呀,为什么我的不行?我只是省了个变量而已

Answer 4

用Unicode characters,不要用ANSI, SuanAddMiao(算苗) 的做法也是很好的.