两个最容易的小问题，因为我忘记了，所以来发贴

Question

1、用filelistbox的时候，如果获得选中的文件名和后缀名？不包括文件路径。
2、用哪个函数可以弹出一个内置的输入框？可以让用户输入文本信息后返回这个字符串？

Answer 1

1.
var
  i : integer;
  filename : string;
begin
  for i := 0 to filelistbox1.Items.count - 1 do
   if filelistbox1.Selected[i] then
   begin
     fileName := filelistbox1.Items.Strings[i];
     showmessage(filename);
     //后缀名
     //简单方法
     delete(filename,1,pos('.',filename));
     showmessage(filename);
   end;2.INPUTBOX