请问怎样同时对一个stringlist赋予多个item值？？？

Question

也就是：
stringList.add('item1');
stringList.add('item2');
stringList.add('item3');
;;;;;;
;;;;;;
stringList.add('itemN');能否用一条语句表示多个item值？？ 各个item值之间如何间隔开来？在此先谢了

Answer 1

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i    : Integer;
  test : TStringList;
begin
  test:=TStringList.Create;
  For i:=0 to 10 do
  begin
     test.Add(IntToStr(i));
  end;
  ComboBox1.Items.Assign(test);
end;

Answer 2

var
  StrList: TStrings;
begin
  StrList := TStringList.Create;
  StrList.Text := 'Delphi 9' + #13#10 + 
                  'C++ Builder 6' + #13#10 + 
                  'JBuilder 2005'
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  StrList: TStrings;
begin
  StrList := TStringList.Create;
  StrList.Delimiter := #32;  //分格符为空格
  StrList.DelimitedText := 'item1 item2 item3 item4 item5 item6 item7';
  memo1.Lines.Assign(StrList);
end;