myamanda

摘要： 在你的窗体中添加一个Timage和一个Button，Button用于调用过程，此过程把文本和gif文件的名字作为参数。 procedureTxtToGif(txt,FileName:String);vartemp:TBitmap;GIF:TGIFImage;begintemp:=TBitmap.Create;trytemp.Height:=400;temp.Width:=60;temp.Trans... 阅读全文

摘要： procedureTextOutAngled(iCoordX,iCoordY:integer;constsString:string;iAngle,iSize:integer);varoLogFont:TLogFont;SaveFont:TFont;beginSaveFont:=TFont.Create;SaveFont.Assign(GlobalCanvas.Font);GetObject(Sa... 阅读全文

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

摘要： 语法:-------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音乐（一般远大于这个数目），维护文件夹、创建列表文件、添加到数据库这一过程... 阅读全文