我想请问怎么样才能把edit.text里面的数据一个一个读出来呢？

Question

我想请问怎么样才能把edit.text里面写进去的数据一个一个读出来呢
我想要的是每一个字符 请问有什么好的方法呢？
                                       哪位老兄知道的请赐教
                                        感谢了呀！！！

Answer 1

var
  i :integer;
begin
  for i:=1 to length(Edit1.Text) do
  showmessage(Edit1.Text[i]);
end;

Answer 2

找出里面的数据的间隔符的位置(看写进去怎么定义的.比如空格或者","":"这些),用pos的方法..
然后在一个一个数据读出来

Answer 3

第一种方法可以啊
Length是算出字符串长度的

Answer 4

var 
  i:integer;
  str:string;
begin
  for i:=1 to length(edit1.text) do
    begin
     str;=copy(edit1.texe,i,i+1);
     if trim(str)=trim(',') then
        begin
         ........
        end;
    end;
end;

Answer 5

哦，yes。其实这个问题很简单