如何取到opendialog1.FileName不包括路径的文件名？（急）

Question

ExtractFileName(OpenDialog1.FileName);

Answer 1

自己写程序就如此：
var i,loc:integer;
    resultStr:string;loc:=0;resultStr:=OpenDialog1.FileName;
for i:=1 to StrLen(PChar(resultStr)) do
  if (resultStr[i]='\')   then loc :=i;if loc>0 then delete(resultStr,1,loc);

Answer 2

ExtractFileName!!!!
看来我是来晚了。

Answer 3

我也来晚了!taxi(游少爷)说的是对的!　

Answer 4

ExtractFileName(OpenDialog1.FileName);
来晚了........................

Answer 5

ExtractFileName(OpenDialog1.FileName);
唉,来晚了........................