懒虫的博客

Delphi将excel数据导入到数据库中源码procedure Tfrmexceltodata.Button4Click(Sender: TObject);constBeginRow= 1; BeginCol= 2;variRE:Integer;iRow,iCol :Integer; //列、行MsExcel,MsExcelWorkBook,MsExcelWorkSheet:Variant;adoquery1:TADOQuery;sqlstr1,sqlstr2:string;begin

delphi7如何读取excel文件用ole读excel：会读了后，你自己处理一下要读的数据就行了varI, J: Integer;MaxRow, MaxCol: Integer;List, Strs: TStringList;ExcelApp, Sheet: Variant;OldTime: TDateTime;beginList := TStringList.Create;Strs := TStringList.Create;// 创建一个excel的ole对象ExcelApp

procedure TForm1.Button1Click(Sender: TObject);var excelx,excely : string;begintry ExcelApp := CreateOleObject('Excel.Application'); WorkBook := ExcelApp.WorkBooks.Open(opendialog.FileName);//使用opendialog对话框指定//excel档路径 ExcelApp.Visible := fal

一直都是将数据从SQL导入到EXCEL文件,前两天因为有需求,试着将EXCEL文件导入到SQL,才发现两者的原理其实是一样的,如下代码,并附注释:procedure Tfom1.ExcelToSQLMenuItemClick(Sender: TObject);varExcelID,Sheet: Variant;sFileName :String;i,ExcelRowCount,OkNum,FailNum:integer;begin//指定文件OkNum:=0; //导入成功的数据Fai

Delphi对Excel的所有操作一) 使用动态创建的方法首先创建 Excel 对象，使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( ‘Excel.Application’ );显示当前窗口：ExcelApp.Visible := True;更改 Excel 标题栏：ExcelApp.Caption := ‘应用程序调用 Microsoft Excel’;添加新工作簿：ExcelApp.WorkBooks

Delphi客户端通过FTP服务器上传或下载文件或图片方法首先在服务器端建立FTP服务器，网上有这种类型的软件，安装好后，在客户端建立服务器连接，然后再上传或下载文件或图片。一、服务器连接procedure TForm1.ConnectButtonClick(Sender: TObject);begin if not IdFTP1.Connected then //如果与服务器断开连...

由于delphi本身自带了indy控件，因此用这些控件实现网络编程即快又容易。尽管如此，我还是极大地鼓励自己查看FTP底层是如何实现的，但就目前而言，indy控件还是一个非常不错的选择。 针对indy的强大，我还是决定将这段代码帖出来，主要是方便自己日后复习、查询。Unit1;interfaceuses Windows, Messages, SysUtils, Va...