TStrings是一个抽象类,永远不能被实例话。如果要用的话,可以用TStringList进行实例话。
这是面向对象的多态的一个具体应用。

解决方案 »

  1.   

    var
     A:Tstrings
    bagin
     A:=TStringlist.create
     A.Add('')
     .......
    end
      

  2.   

    TStrings不能直接使用的,你应该var一个TStringList,然后使用
    var
      YourStringList: TStringList;
    Begin
      YourStringList:= TStringList.Create; //创建
      ......
      ......
      YourStringList.Free;  //释放
    End;
      

  3.   

    use tstringlist !
    with tstringlist.create do
    begin
       add(...);
       ...
      free;
    end;