*******************************
* 编 译 错 误 信 息 *
*******************************
’;’ not allowed before ’ELSE’ ElSE前不允许有“;”
’amp;amp;lt;clauseamp;amp;gt;’ clause not allowed in OLE a ...……
function GetFileName(FileName: string): string; {从路径中分离文件名}
var Contador: integer;
begin
Contador := 1;
while Copy(FileName, Length(FileName) - Contador, 1) amp;amp;lt;amp;amp;gt; '\' do
begi ...……