好久不用DELPHI的数组了，想问一个很简单的问题，在线等

Question

已经很久不用数组了，今天突然要用到，但手头又没有相关的资料，只好上网求助了。我的问题是这样的：
　　我要定义两个动态一维数组A,B　然后呢把EDIT1.TEXT中的字符串直接赋给数组A，把EDIT2.TEXT中的字符串直接赋给数组B,　EDIT1.TEXT和EDIT2.TEXT中的值在运行时输入，然后取出这两个数组的交集，并把这个交集赋给edit3.text让它显示出来，就这么简单，在线等，解决了马上结帖请把数组的定义、赋值、输出全都写出来，（就是完整的程序段）我要拿来参考，谢谢了！

Answer 1

可不用数组
var s1,s2,s3:String;//其实String也是数组
    i:integer;s1:=Edit1.Text;
s2:=Edit2.Text;
s3:='';
for i:=1 to Length(s2) do
  if Pos(s2[i],s1)<>0 then
    s3:=s3+s2[i];
Edit3.Text:=s3;

Answer 2

要定义动态一维数组可以这样：
var a,b:array of char;
    n,m:integer;  n:=length(Edit1.Text);
  m:=length(Edit2.Text);
  SetLength(a,n);
  SetLength(b,m);

Answer 3

var sa:array[1..3] of String;////定义一个长度为3得数组beginsa[1]:=edit1.text;
sa[2]:=edit2.text;
sa[3]:=edit3.text;end;
////////////如果不固定长度，可用StringList;var
mystr:TStringList;
begin
mystr:=TstringList.create(self);
mystr.Add(edit1.text);
mystr.add(edit2.text);
......end;