皮皮网

1.在DELPHI设置EXCEL工作薄的名称
2.Android登录界面源代码delphi xe10

在DELPHI设置EXCEL工作薄的名称

       首先打开EXCEL文件，改名保存后，短视频询盘源码开源删除原文件就达到目地了。Linkhashset源码

       源码：

       procedure TForm1.Button1Click(Sender: TObject);

       const

        NewName = 'NewName.xls';

       var

        fnm,visualgdb源码pth: String;

        ExlApp: TExcelApplication;

        ExlWb: TExcelWorkbook;

       begin

        if OpenDialog1.Execute then begin

        fnm := OpenDialog1.FileName;

        pth := ExtractFilePath(fnm);

        ExlApp := TExcelApplication.Create(Forms.Application);

        ExlApp.Connect;

        ExlApp.Visible[0] := False;

        ExlWb := TExcelWorkbook.Create(Forms.Application);

        ExlWb.ConnectTo(

        ExlApp.Workbooks.Open(fnm,

        EmptyParam,EmptyParam,EmptyParam,EmptyParam,

        EmptyParam,EmptyParam,EmptyParam,EmptyParam,

        EmptyParam,EmptyParam,EmptyParam,EmptyParam,

        EmptyParam,EmptyParam,0));

        ExlApp.Application.DisplayAlerts[0] := False;

        ExlWb.SaveCopyAs(pth + NewName);

        ExlWb.Close(EmptyParam, fnm, EmptyParam, 0);

        ExlApp.Quit;

        //必要时，可以删除原来的elona源码文件

        //DeleteFile(fnm);

        end;

       end;

Android登录界面源代码delphi xe

       [示例介绍]

       [示例屏幕截图] #8:8:f:8:2:9delphi xe android:2:9:8:8:8:d:d:1:d:c:1:c:e:1:1:2:9:7:8:7:5delphi xe android:4:4:5:5:5#

       [核心代码]过程Tfmbody.InitFrame（）;

       开始

       { fmapp: = Tfmapp.Create（自己）;

       fmapp.Parent: = TabItem1;

       fmapp.Align: = TAlignLayout.Client;

       fmmsg: = Tfmmsg.Create（自己）;

       fmmsg.Parent: = TabItem2;

       fmmsg.Align: = TAlignLayout.Client;

       fmtel: = Tfmtel.Create（自己）；

       fmtel.Parent: = TabItem3;

       fmtel.Align: = TAlignLayout.Client;

       fmsetting: = Tfmsetting.Create（自己）；

       fmsetting.Parent: = TabItem4;

       fmsetting.Align: = TAlignLayout.Client;}

       end;

       过程Tfmbody.UnInitFrame（）;

       开始

       { fmapp.DisposeOf;

       fmmsg.DisposeOf;

       fmtel.DisposeOf;

       fmsetting.DisposeOf;}

       end;

       结束.