这里哪里错了？

Question

var
   b:tbrowseinfo;
   d:array[0..260] of char;
   i:pitemidlist;
   s:string;
begin
   b.hwndowner:=self.handle;
   b.pidlroot:=nil;
   b.pszdisplayname:=nil;
   b.lpsztitle:='请选择';
   b.ulflags:=0;
   b.lpfn:=nil;
   b.lparam:=0;
   b.iimage:=0;
   i:=shbrowseforfolder(b);
   if i<>nil then
   begin
      shgetpathfromidlist(i,@d);
      s:=string(d);
   end;
   if s<>'' then
   begin
     s:=s;
   end;
end;

Answer 1

没问题啊
你想怎么样?
建议
uses
FileCtrl
if not selectDirectory('请选择操作目录' ,'初始目录建议空' ,dir) then Exit;

Answer 2

  if s <>'' then 
  begin 
    s:=s; 
  end; 
这句话是什么意思啊？应该是无意义的语句，s:=s;～
另外，多说一句，LZ的代码全是小写，建议采用驼峰法来写，不容易看明白。