me2008的专栏

我的HTML+CSS学习笔记一、HTML 1.名词解释： WWW：Word Wide Web，万维网 W3C：World Wide Web Consortium，万维网联盟/W3C理事会。 HTML：Hyper Text Markup Language， 超文本标记语言。 CSS：Cascading Style Sheet，级联样式表。 XHTML：eXtensible HyperText Markup Language，可扩展超文本标记语言。 2.参考网页的源代码。右击，查看源文件。 3.HTML不是编程语言，而是一种描述性的标记语言。标记：就是用来描述网页内容的一些特定符号。 4.html标记的语法：标记分为两种，单标记、双标记

delphi多线程HTTP断点续传下载演示的程序代码，可参考

delphi 开发的access pos收银系统，含文档说明，适合初学者学习使用

DELPHI 表格控件DBGridEh史上最全使用资料 DELPHI 表格控件DBGridEh史上最全使用资料

华为编程规范文档.rar

一; delphi 快速导出excel uses ComObj,clipbrd; function ToExcel(sfilename:string; ADOQuery:TADOQuery):boolean; const xlNormal=-4143; var y : integer; tsList : TStringList; s,filename :string; aSheet :Variant; excel :OleVariant; savedialog :tsavedialog; begin Result := true; try excel:=CreateOleObject('Excel.Application'); excel.workbooks.add; except //screen.cursor:=crDefault; showmessage('无法调用Excel！'); exit; end; savedialog:=tsavedialog.Create(nil); savedialog.FileName:=sfilename; //存入文件 savedialog.Filter:='Excel文件(*.xls)|*.xls'; if savedialog.Execute then begin if FileExists(savedialog.FileName) then try if application.messagebox('该文件已经存在，要覆盖吗？','询问',mb_yesno+mb_iconquestion)=idyes then DeleteFile(PChar(savedialog.FileName)) else begin Excel.Quit; savedialog.free; //screen.cursor:=crDefault; Exit; end; except Excel.Quit; savedialog.free; screen.cursor:=crDefault; Exit; end; filename:=savedialog.FileName; end; savedialog.free; if filename='' then begin result:=true; Excel.Quit; //screen.cursor:=crDefault; exit; end; aSheet:=excel.Worksheets.Item[1]; tsList:=TStringList.Create; //tsList.Add('查询结果'); //加入标题 s:=''; //加入字段名 for y := 0 to adoquery.fieldCount - 1 do begin s:=s+adoQuery.Fields.Fields[y].FieldName+#9 ; Application.ProcessMessages; end; tsList.Add(s); try try ADOQuery.First; While Not ADOQuery.Eof do begin s:=''; for y:=0 to ADOQuery.FieldCount-1 do begin s:=s+ADOQuery.Fields[y].AsString+#9; Application.ProcessMessages; end; tsList.Add(s); ADOQuery.next; end; Clipboard.AsText:=tsList.Text; except result:=false; end; finally tsList.Free; end; aSheet.Paste; 。。。。。。

Delphi 跳出循环的几种方法Delphi 跳出循环的几种方法 我常用的几种方法 希望大家看看 那个是大家常用的而且比较不错的 以下是引用片段： Delphi中break,exit,abort跳出循环的比较 exit: 退出函数体 abort: 遇到异常,安静处理,就是不显示不提示 break: 退出当前循环体,包括for ,while, repeat等循环体 continue: 结束循环内的本次处理,继续从循环体的开始位置继续执行 Exit 是跳出当前代码块，也就是当前函数，跳出后是要继续向下执行的（如果有后续代码）。 Abort 是从 EAbort 过来的，可以激发 exception，其实质就是 Abort = RaiseException()，是一个不出现对话框的异常。所以 Abort 的行为和异常是一样的，其代码执行顺序也是follow异常的流程。 例如： try (1) //执行了 abort; (2) //不执行 exception (3) //执行了 end; 用 Abort 能够执行 exception 里边的代码，但是如果用 Exit，就直接离开，不管 exception。 delphi中表示跳出的有break，exit，abort。 【break】 离开循环 只能放在循环中 【exit】 跳出本模块（过程和函数），放在循环中是跳出循环在所在的模块。 【abort】 中止程序的运行，产生不报错的异常信息。跳出祖先模块。和【exit】的区别是 procedure p1; begin p2; p3; end; procedure p2; begin abort; //exit; end; procedure p3; begin //showmessage().. end; 如果用 Abort，则执行不到 P3，如果用 Exit 就能够执行到 P3。

Delphi动态控件拖动及改变大小，

Kingron已经尽力减少资料的重复和简洁,如果有重复的地方,我表示抱歉,鉴于精力和时间有限,不能一一查处,请大家原谅,资料包里面的东西绝大部分我测试过可行的或者认为可行的,至于使用资料包的时候有什么问题无法解决,也不要写信给我,技术问题可以到各大论坛提问,不要寄到我的信箱,因为以前有很多朋友写信过来就资料包中的一些问题写信给我,我实在是不能一一回复,抱歉了。其实这个资料包中有很多的东西不是一下子就能够领会的,很多的东西属于比较高级的内容,希望大家不懂的地方多去看书和仔细研究,慢慢地你会发现,以前很多的小问题,回过头去看,真的不算什么,甚至会疑惑自己当时怎么会提出那么"弱"的问题！:)

一、概述 在银行，税务，邮政等行业的实际工作中，经常涉及到在印刷好具有固定格式的汇款单，储蓄凭证， 税票等单据上的确定位置打印输出相关的信息。在此类需求中，精确地定位单据并打印相关信息， 是解决问题的关键。一般情况下，开发者都是通过在打印机上通过重复的测试来达到实际需求。 那么，有没有简单有效而又灵活的方法实现上述功能呢？