result:array[1..37] of TStrings;
for i:=1 to 37 do
   result[i].creat;有什么问题吗,怎么提示有地址冲突

解决方案 »

  1.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      sl: TStrings;
      Value: string;
      Index: Integer;
    begin
      sl := TStringList.Create;  //建立
      try
        sl.Add('a01=1');         //装数
        sl.Add('d01=17');
        sl.Add('ss1=''xxk''');    Value := sl.Values['ss1'];//按名字取数
        ShowMessage(Value);    Index := sl.IndexOf('d01=17'); //査某行
        ShowMessage('第'+IntToStr(Index) + '行');
      finally
        sl.Free
      end;
    end;(注:TStrings是个抽象虚类,TStringList为其子类实现了TStrings中的抽象方法)
      

  2.   

    1. 如楼上说的,TStrings是个抽象虚类,TStringList是干活的;
    2. 构造函数是类方法而不是对象的方法,调用TStringList.Create方法,而不是数组中的对象。
      

  3.   

    到底是要数组,还是要vector呀?
      

  4.   

    RamjetZhang说得对;
    Java的vector就相当于Delphi中的动态数组