uses Filectrl
var
getdirectoryname:string[255];
begin
selectdirectory('Caption','c:\',getdirectoryname);
self.caption:=getdirectoryname //没有分号也能通过,怪不怪!D5+NT4.0运行通过.
end;
var
getdirectoryname:string[255];
begin
selectdirectory('Caption','c:\',getdirectoryname);
self.caption:=getdirectoryname //没有分号也能通过,怪不怪!D5+NT4.0运行通过.
end;
uses Filectrl
var
getdirectoryname:string;
begin
selectdirectory('Caption','c:\',getdirectoryname);
self.caption:=getdirectoryname //没有分号也能通过,怪不怪!D5+NT4.0运行通过.
end;
楼主!!
我知道,但这句你看看!
如果不是最后一行就不行了。如果在if else里面,else的前一行代码是不能写分号的,写了就通不过了
看来PASCAL基础还不行啊!