myamanda

摘要： 语法:-------myTcolor:=rgbtocolor(redvalue,greenvalue,bluevalue);例子:--------form1.color:=rgbtocolor(255,0,0);函数:---------functionRGBToColor(R,G,B:Byte):TColor;beginResult:=BShl16OrGShl8OrR;end; 阅读全文

摘要： {在窗体中添加button，然后加入以下代码：}procedureTForm1.FormCreate(Sender:TObject);varFullRgn,ClientRgn,ButtonRgn:THandle;Margin,X,Y:Integer;beginMargin:=(Width-ClientWidth)div2;FullRgn:=CreateRectRgn(0,0,Width,Heigh... 阅读全文

摘要： 通过使用Delphi动态数组，数组大小不是在设计时而是在运行时确定的。此处是用于建立循环赛程安排的单元，unit uSupport;interfaceconstBYE_GAME : Integer = -1;typeTPair = RecordHome : Integer;Away : Integer;Round : Integer;Desc : String;End;TPairings ... 阅读全文

摘要： function HexaToDecimal(Hexa:string):longint; constValoresHexa : array['A'..'F'] of integer = (10,11,12,13,14,15); varnDecimal : longint;nIndex : byte; beginnDecimal := 0;Hexa := Uppercase(Hexa);for... 阅读全文

摘要： FDOM和DOM-------------FDOM返回参数中日期所在月份的第一天的日期。而LDOM返回该月份的最后一天的日期（所给日期的下一个月的第一天日期减去一）。functionFDOM(Date:TDateTime):TDateTime;varYear,Month,Day:Word;beginDecodeDate(Date,Year,Month,Day);Result:=EncodeDate... 阅读全文

摘要： Delphi中没有提供现成的控件数组，这使每一个由VB转型到DELPHI程序员都会不由自主的怀念VB中那无处不在的控件数组以及控件数组给我们带来的方便。那么DELPHI中是不是就没有办法使用控件数组了呢？办法是有的，在很多DELPHI的教材中都提到一个方法：TLISTSTRING；使用TLISTSTRING类控制容器中的控件以达到使用控件数组的目的；另外一种途径是由用户自己来开发带数组性质的VCL... 阅读全文

摘要： 维护过音乐站点的朋友都只道，要实现确保音乐站点在线播放MP3音乐必须为每首Mp3建一个.m3u音乐列表文件，当网友点击音乐时先下载m3u音乐列表文件，然后播放器根据m3u文件指向的Mp3文件地址就可以实现在线播放。如果音乐站点要实现查询、统计功能就必须用到数据库，把每首歌的信息记录入数据库。 如果，一个站点有5000首Mp3音乐（一般远大于这个数目），维护文件夹、创建列表文件、添加到数据库这一过程... 阅读全文

摘要： 本文介绍的主题是如何编写和调用能够传递各种参数（包括对象实例）的 DLL。例如， 主叫程序传递给 DLL一个ADOConnection 对象示例作为参数， DLL中的函数和过程调用通过该对象 实例访问数据库。需要明确一些基本概念。对于 DLL，需要在主程序中包含 exports子句，用于向外界提供调用 接口，子句中就是一系列函数或过程的名字。对于主叫方（调用 DLL的应用程序或其它的 DLL）... 阅读全文

摘要： 在Delphi应用程序开发中，程序设计人员的大部分工作是在组件的事件句柄中添加自己的程序代码，以实现具体的应用。在开发一些较大的应用程序时，为了完善程序的功能，使用户用起来方便、灵活，通常需要增加大量的组件，其中一些组件的事件句柄内容可能完全相同。如一个菜单项和与之有相同功能的按钮（如Button1）的OnClick事件；还有一些内容大部分相同，如Button1的OnClick事件改变Edit1的... 阅读全文