低级问题（listbox)

Question

for i:=0 to listbox1.Count-1  do
               if listbox1.selected[i] then
                 str:=listbox1.Items[i];
给看一下，最后一行老是提示[Error] utheme1.pas(61): Constant expression expected

Answer 1

你代码没有错，估计是你变量有问题
var
  i: Integer;
  str: string;
begin
  for i := 0 to listbox1.Count-1  do
  begin
    if listbox1.selected[i] then
      str := listbox1.Items[i];
  end;
showmessage(str);

Answer 2

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  str: string;
begin
 for i := 0 to listbox1.Count-1  do
  begin
    if listbox1.selected[i] then
      str := listbox1.Items[i];
  end;
showmessage(str);end;