翻译啊

Question

function ExtractFileName(const FileName: string): string; 
如"mytest.doc"
var
  I: Integer;
begin
  I := LastDelimiter(PathDelim + DriveDelim, FileName);
  Result := Copy(FileName, I + 1, MaxInt);
LastDelimiter(PathDelim + DriveDelim, FileName);
什么意思啊，一个都不懂哦，去网上查了大半天没有结果要命哦。

Answer 1

看看你的代码里 PathDelim  DriveDelim 都定义的是什么就行了LastDelimiter 函数 返回一个字符串SubStr在另一个字符串Str中最后出现的位置比如 LastDelimiter(SubStr, Str);