如何在listbox delphi中获取值文本

Question

我有这样的代码，我在Delphi XE中尝试：

procedure TForm1.FormShow(Sender: TObject);
var
  i : integer;
  li : TListBoxItem;
  tt : TText;
begin
  ListBox1.BeginUpdate;
  for I := 1 to 10 do
  begin
    li := TListBoxItem.Create(ListBox1);
    li.Parent := ListBox1;
    tt := TText.Create(li);
    tt.Parent := li;
    tt.Text := IntToStr(i);
    tt.Name := 'text' + IntToStr(i);
    li.ItemData.Detail := 'Lis' + IntToStr(i);
    ListBox1.AddObject(li);
  end;
  ListBox1.EndUpdate;
end;

如何在listboxitem delphi中获取值文本？

我尝试使用此代码但不能：

for i := 0 to ListBox1.Items.Count-1 do
begin
    h := TText(ListBox1.Items.Objects[i]);
    Memo1.Lines.Add(ListBox1.Items.Objects[i].ToString);
end;

由于

Answer 1

//you should try this
for i := 0 to ListBox1.Items.Count-1 do
begin
    h := TText(ListBox1.Items.ListItems[i]);
    Memo1.Lines.Add(ListBox1.Items.ListItems[i].Text);
end;