uses Filectrl
var
getdirectoryname:string[255];
begin
selectdirectory('Caption','c:\',getdirectoryname);
self.caption:=getdirectoryname     //没有分号也能通过,怪不怪!D5+NT4.0运行通过.
end;

解决方案 »

  1.   

    对不起!应该是:
    uses Filectrl
    var
    getdirectoryname:string;
    begin
    selectdirectory('Caption','c:\',getdirectoryname);
    self.caption:=getdirectoryname     //没有分号也能通过,怪不怪!D5+NT4.0运行通过.
    end;
      

  2.   

    并不是每一个语句都要加分号。好好理解begin....end
      

  3.   

    好好看看pascal语言吧,
    楼主!!
      

  4.   

    selectdirectory('Caption','c:\',getdirectoryname);//楼主把这一行的分号去掉试试!
      

  5.   

    rily(-= 趴地熊 =-) 
    我知道,但这句你看看!
      

  6.   

    begin end里面最后一行代码不加是可以运行的。
    如果不是最后一行就不行了。如果在if else里面,else的前一行代码是不能写分号的,写了就通不过了
      

  7.   

    self.caption:=getdirectoryname;;;;;;;;;;;;;;;;;;;;;;;;;;;加n个分号也能通过,本来就是没有分号的,加了才是多余的,相当于写了n个空语句
      

  8.   

    长知识!
    看来PASCAL基础还不行啊!