Delphi 里有没有对话框控件与变量之间传递值的好方法？

Question

我一般写两个函数：
一个：Edit1.text := a;
Edit2.text := b;
……另一个：a := Edit1.text;
b := Edit2.text;
……总觉得太笨，尤其控件很多时，有没有什么其它好方法？

Answer 1

函数可以这么写
一个
  for i:=0 to Self.ComponentCount-1 do
  begin
    if Self.Components[i] is TEdit then
        ValueList.AddObject((Self.Compoents[i] as TEdit).text,Self.Components[i]);
  end;
另一个
  for i:=0 to ValueList.Count-1 do
  begin
    (ValueList.Object[i] as TEdit).Text:=ValueList.Strings[i];
  end;

Answer 2

后面那个函数应该是ValueList.Objects[i]，特此更正:)