菜虫问题：已知一个字符串str，怎么从头到尾得到她的每一个字符？？？

Question

如题，，

Answer 1

z:='12345';
z1:=length(trim(z));
for i:=1 to z1 do
z2:=copy(z,i,1);

Answer 2

for i:=1 to length(edit1.Text) do
  showmessage(edit1.Text[i]);

Answer 3

z2:string;
z:='12345';
z1:=length(trim(z));
for i:=1 to z1 do
begin
    z2:=substring(z,i,1);
    showmessage(z2);
end

Answer 4

for i:=1 to length(str) do  str[i];

Answer 5

var
  S1: string;
  C1: Char;
  i: Integer;
begin
  S1 := '1234567890';
  for i := 1 to Length(S1) do
    C1 := S1[i];
end;