一个TStrings的问题~

Question

我在程序中声明了一个TStrings变量T。
请问在程序中如何给他动态赋值。
比如说将N个string存到T中。
然后又如何把T中的字符串按照顺序读入到一个string变量中
请大虾给于代码指点，谢谢。
顺便请问，如何把ListBox当前选中的Item的值赋给listBox的Text属性。

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
 var T:Tstrings ;
begin
    T:=TStringList.create();
    t.Append('777');
    t.Append('888');
    t.Append('999');
    listbox1.Items.Assign(t);
    t.Free;
end;

Answer 2

var
T:TStringGrid;
str1,str2:string;
str1:='这是一个字符串';
T:=TStringGrid.Create(Self);
T.Cells[1,1]:=str1;
str2:=T.Cells[1,1];
T.Free;
ShowMessage('T的第一个单元格是：'+str2);ListBox1.Items[ListBox1.ItemIndex]:取出当前所选项的文本

Answer 3

var
  StrList: TStrings;
  I: Integer;
begin
  StrList := TStringList.Create;
  try
    StrList.Add('a');
    StrList.Add('b');
    for I := 0 to StrList.Count - 1 do
    begin
      ShowMessage(StrList[I]);
    end;
  finally
    StrList.Free;
  end;
选中了的话它的Text就是当前选择中Item的Text 
ListBox1.Text := ListBox1.Items[ListBox1.ItemIndex];

Answer 4

T:=TstringList.Create;
T.Add('hello');....

Answer 5

TStrings是抽象类不要直接用
用数组或是TStringList

Answer 6

var
  StrList: TStrings;
  str: string;
begin
  StrList := TStringList.Create;
  try
    StrList.Add('a');
    StrList.Add('b');
    str:= StrList.Text;
    ShowMessage(str);
  finally
    StrList.Free;
  end;