请教 TStrings 的初始化为何这样难

Question

procedure TForm1.ReadIniFileToList;
const
  constr : String = 'aaa,aaa,aaa';
var
  test_ini:TIniFile;
  arry_s : array[0..2] of String;
  t_Str : TStrings;
begin
   InitListView;
   t_Str := TStrings.Create ;   if  Unit2.bIniFileExt = True then
   begin
      test_ini := TIniFile.Create( Unit2.IniFileName );
      strs1:= TStringList.Create;
      strs1.CommaText := test_ini.ReadString( 'Module', 'Name', ' ');
      //ShowMessage(Strs1[1]);
      strs2:= TStringList.Create;
      strs2.CommaText := test_ini.ReadString('Module', 'Count', ' ');      t_Str.Add('aaa');

Answer 1

TStrings对象一般用它的子类TStringList来初始化

Answer 2

t_Str.Add('aaa');这个不对，不能使用TStrings的这个方法，要使用TStringList的这个方法

Answer 3

对不起发错了，删不了了。具体内容请看：
procedure TForm1.ReadToList;
var
    t_Str : TStrings;
begin
    t_Str := TStrings.Create ;
    t_Str.CommaText := '0000,0000,0000';
end;我想初始化一个空的，或者每个strings[i]为'0000'的这样一个t_Str.可怎么老报 抽象错误！

Answer 4

TStringList的这个方法杂用？能给个例子吗？

Answer 5

var
  str:TStrings;
begin
  str:=TStringList.Create;
  str.CommaText:='0000,0000,0000';
  self.ListBox1.Items:=str;
end;