简单的代码，为何报EAbstractErr异常

Question

  segs := TStrings.Create;  reg := TPerlRegEx.Create;
  reg.Subject := 'Hello World';
  reg.RegEx := 'o';
  reg.Split(segs, MaxInt);              //A
  reg.Free;
  segs.Free;A行报异常 EAbstractErr

Answer 1

TStrings类型里面有纯虚函数(abstract),不能直接被创建为实例，可以使用TStringList代替。即把“segs := TStrings.Create;”，改成“segs := TStringList.Create;”

Answer 2

TStrings类型里面有纯虚函数(abstract),不能直接被创建为实例，可以使用TStringList代替。即把“segs := TStrings.Create;”，改成“segs := TStringList.Create;”