一个关于数组循环取值的基础问题，在线等

Question

var
s_name:string;
s_telephone:string
st:TstringList;st数组数据假定如下(st数组数据不是固定数目)：
张三
3456275
李四
2433494
王五
5697808我要循环取值，每次得到如下结果
第一次循环：
s_name:='张三';
s_telephone:='3456275';
第二次循环：
s_name:='李四';
s_telephone:='2433494';
第三次循环
s_name:='王五';
s_telephone:='5697808';

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var//s_name:string;
//s_telephone:string
st:TstringList;
I:integer;begin
  st:=TstringList.Create;
  st.Add('张三');
  st.Add('3456275');
  st.Add('李四');
  st.Add('2433494');
  st.Add('王五');
  st.Add('5697808');
  for I:=0 to st.Count-1 do
         begin
         if I mod 2 =0   then
          memo1.lines.add('s_name:='+st.Strings[I]+#13)
           else
           memo1.lines.add('s_telephone:='+st.Strings[I]+#13);          end;
     st.Free;end;