05]ApiMateRadStudio.exe上传xls,自动生成pacsal代码

procedure TForm4.Button1Click(Sender: TObject);
var
  xls: TXlsFile;
begin
  xls := TXlsFile.Create(true);
  try
    CreateExcelFile(xls);

    //将文件保存为XLS
    if OpenDialog1.Execute then   //加一个 OpenDialog1
       xls.Save(OpenDialog1.FileName);
  finally
    xls.Free;
  end
end;