请问下面这段代码要怎么实现?

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  strList :tstrings;
begin
   strList.add('1');
   strList.add('2');
   strList.add('3');
   showmessage(strList.Text);
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  strList :tstringlist;
begin
   strlist:=TStringlist.create;
   strList.add('1');
   strList.add('2');
   strList.add('3');
   showmessage(strList.Text);
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  strList :TStrings;
begin
  strList := TStringList.Create;
   strList.add('1');
   strList.add('2');
   strList.add('3');
   showmessage(strList.Text);
  strList.Free;
end;strList是一个对象变量，必须先创建。由于TStrings是个抽象类，必须创建成它的一个衍生类（不过可以声明成TStrings)，如TStringList。对象创建是要在堆中分配内存的，所以用完后要释放。

Answer 3

对了,别忘了最后要 strList.Free;

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  strList: TStringList;
begin
  strList:= TStringlist.create;
  try
    strList.add('1');
    strList.add('2');
    strList.add('3');
    showmessage(strList.Text);
  finally
    strList.free;
  end;
end;

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var strList :tstrings;
begin
   strList:=tstringlist.Create;
  try
   strList.add('1');
   strList.add('2');
   strList.add('3');
   showmessage(strList.text);
  finally
  strlist.Free;
  end; 
end;