怎样获得listbox当前选中的值？

Question

如题

Answer 1

我想将listbox中选中的值（无后缀的文件名），作为LoadFromFile(）的参数，如下面的程序所示，但是调不通，请帮帮看一下，谢谢procedure TForm1.ListBox1Click(Sender: TObject);
var
  aa,bb:tstringlist;
  i:integer;
  filepath:string;
begin
  aa:=tstringlist.Create;
  bb:=tstringlist.Create;
  filepath:=listbox1.items[listbox1.itemindex]+'.txt'
  aa.LoadFromFile(filepath);
  for i:=0 to aa.Count-1 do
  begin
    bb:=SplitString(aa.Strings[i],',');
    stringgrid1.Rows[i]:=bb;
  end;
  aa.Free;
  bb.Free;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var str:string;
begin
  str:=listbox1.Items.Strings[listbox1.itemindex];
  application.MessageBox(pchar(str),'',mb_ok)
end;

Answer 3

bb:=SplitString(aa.Strings[i],',');
bb是TStringList。而SplitString是什么类型的呢？？

Answer 4

我想是你路径没有明确:
如是在当前EXE目录下--->
filepath:=Extractfilepath(application.exename)+listbox1.items[listbox1.itemindex]+'.txt'