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

涂磊的小作,请赐教 / 2023-05-28 / 原文

ApiMateRadStudio.exe

链接:https://pan.baidu.com/s/1Sd-teDIRX9ZV48j6Jgc_wQ
提取码:7nk4

 

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;