为什么连文件都创建不了，给我个理由，各位大仙

Question

var f:TextFile;
begin
AssingFile(F,'delself.bat);
Rewrite(F);
WriteLn(F,'del '+ExtractFileName(Application.ExeName));
WriteLn(F,'del %0);
CloseFile(F);

Answer 1

procedure TForm1.Button5Click(Sender: TObject);
var
  f:TextFile;
begin
  AssignFile(F,ExtractFilePath(Application.ExeName)+'delself.bat');
  try
    Rewrite(F);
    WriteLn(F,'del '+ExtractFileName(Application.ExeName));
    WriteLn(F,'del %0');
  finally
    CloseFile(F);
  end;
end;改一下试看看

Answer 2

  if not FileExists('delself.bat') then
  begin
    AssignFile(f, 'delself.bat');
    Rewrite(f);
    CloseFile(f);
  end;  AssignFile(f, 'delself.bat');
  Rewrite(f);
  Append(f);
  WriteLn(F,'del '+ExtractFileName(Application.ExeName));  CloseFile(f);

Answer 3

var f:TextFile;
begin
AssingFile(F,'delself.bat);
Rewrite(F);
WriteLn(F,'del '+ExtractFileName(Application.ExeName));
WriteLn(F,'del %0);//这里写错了吧
CloseFile(F);