asanmusic的博客

procedure TForm1.btn7Click(Sender: TObject); var i,row,column:integer; begin Try ExcelApplication1.Connect; Except MessageDlg('Excel may not be installed',mtError, [mbOk], 0); Abort; End; ExcelApplication1.Visible[0]:=True; ExcelApplication1.Caption:='Excel Application'; ExcelApplication1.Workbooks.Add(Null,0); ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]); ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet); Tabel1.Open; row:=1; While Not(Tabel1.Eof) do begin column:=1; for i:=1 to Tabel1.FieldCount do begin ExcelWorksheet1.Cells.Item[row,column]:=Tabel1.Fields[i-1].AsString; column:=column+1; end; Tabel1.Next; inc(row); end; End;

{这个是2011.12.16的完美测试版} 1>将文件SQLThread.dcu 引入你的程序中 2>分别添加: ClientDataSet1、DBNavigator1，datasource1 ,dbgrid1 3>ClientDataSet1只添加即可，无需修改任何属性，datasource1的dataset:=ClientDataSet1 dbgrid1的datasource:= datasource1;DBNavigator1的datasource:= datasource1即可. 如下调用(见demo) implementation {$R *.dfm} uses SQLThread; procedure TForm1.btn1Click(Sender: TObject); var sqlgn : TMySQLThread; begin try ds1.Close; sqlgn := TMySQLThread.create(edt6.Text,edt1.Text,edt2.Text,edt3.Text,edt4.Text,edt5.Text,gosql); sqlgn.clids := ds1; sqlgn.Resume; except end; end; {edt6.text 是要执行的sql语句, edt1~edt5 分别是：数据库地址，数据库名称，用户名，密码，数据库编码 (都是string类型) gosql是SQLQuery的执行方式： gosql := True时以SQLQuery.OPEN，false时以SQLQuery.ExecSQL}

TMyThread = class(TThread) private step_mun: Integer; max_mun: Integer; FProgressBar: TProgressBar; FLabel: TLabel; procedure DoProgress; protected procedure Execute; override; public constructor Create(CreateSuspended: Boolean); end;

2>别添加: ClientDataSet1、DBNavigator1，dbgrid1 （添加后什么属性都不用改） // 用法 mysql 5.* // // var sqlgn : TMySQLThread; (声明类) // // begin // // ds1.Close; {ds1 是 ClientDataSet1} // // sqlgn := TMySQLThread.create(sql语句，host,database,username ,psw, // // mysqlchar类型); // // sqlgn.clids := ds1; // // sqlgn.dbnvgr := dbnvgr1; {dbnvgr1 是 DBNavigator1} // // sqlgn.grd := dbgrd1; {dbgrd1是 dbgrid1} // // sqlgn.Resume； // // end; //

delphi用Intraweb打造的动网论坛 delphi用Intraweb打造的动网论坛

走马灯效果示例 走马灯效果示例 走马灯效果示例 走马灯效果示例 走马灯效果示例

示例教你如何操作INI配置文件。示例中是一个中英文的软件菜单示例。 示例教你如何操作INI配置文件。示例中是一个中英文的软件菜单示例。

WEBBROWSER无边框. 我已经测试过OK

这是个计算两个日期时间之间差值的单元 1>你在使用时只要把diffdatetime.duc文件复制到你的工程目录中，并在要使用的单元中如下引用。 implementation uses diffdatetime;//引用即可。 {$R *.dfm} 2>函数说明 function DiffDay( Date_A,Date_B:String):String;//两个日期天数差值 function DiffHOUR( Time_A,Time_B:String):String;//两个日期小时数差值 function DiffMIN( A_TIME,B_TIME:String):String;//两个日期分钟数差值 function DiffSEC( S_TIME,E_TIME:String):String;//两个日期秒数差值 3> 参考test.dpr的使用方法 by Liangsiwen (QQ：994502129) http://www.asanmusic.com

这个示例是delphi编译的一个程序中关闭另一个外部运行程序的示例,该示例可以用在程序自动升级的升级程序中.. 谢谢

这个示例是delphi中indy组件中idhttp实现多线程下载的一个好例子,希望帮助到大家.

本例说明了webbrowser浏览网页时,如何查看html源文件的代码......