心动吧DELPHI网络书

  下载的时候最好不要用迅雷,要不然很容易断线.

  提供多个控件下载:

如何把图标文件转换为位图文件 重庆市巴南区大江车辆总厂 周剑峰 ---- 图标和位图是WINDOWS 中常见的两种图形资源，在开发应用 程序时，充分地运用这些资源可以极大地改进程序的界面，增强 软件的实现效果。例如在DELPHI 中，我们可以给应用指定一个图 标，给位图命令按钮或加速按钮指定一个位图等。许多开发工具 都提供有大量的图形资源，包括位图、图标、光标、视频文件等， 比如在DELPHI、V

代码如下:function FileToVariant(FileName: String): OleVariant; var   AStream: TFileStream;   MyBuffer: Pointer; begin   AStream:=TFileStream.create(FileName,fmOpenRead);   try  &n

财务软件中总少不了大写的金额表示方式,如下为一个简单的小写金额转换为大写的函数,其思路简单(可以说烂吧,居然利用了位置来转换),但是它却几乎可以无限制的转换,只要你能读得出来和写得进去:function Tform1.SmallTOBig(small:real):string;var SmallMonth,BigMonth:string;wei1,qianwei1:string[2];wei,qi

代理公司作为IBM的AS/400小型机的老用户，在实际的工作中，需要将AS/400中的数据以E-mail的方式与外界进行数据通讯的需求也越来越多。比如，需要将某一航次的货物舱单（Cargo Manifest）以E-mail的方式传给船公司，此货物舱单就是AS/400的打印文件（Spool File）。如何将AS/400的打印文件以E-mail的方式与外界进行数据通讯，其关键是将此打印文件转化为微机

代码如下:procedure TForm1.Button1Click(Sender: TObject);var  TheRgbValue : TColorRef;begin  if ColorDialog1.Execute then begin    TheRgbValue := ColorToRGB(ColorDialog1.Color);&nb

代码如下:procedure TImport_Form.ToolButton3Click(Sender: TObject);Var  WordApp:Variant;beginif OpenDialog1.Execute thenBegin  Edit1.Text:=ExtractFileName(OpenDialog1.FileName);  StatusBar1.

代码如下:theStringname := GetEnumName(Typeinfo(TAlignment),Ord(label1.Alignment));  label1.Alignment := TAlignment(GetEnumValue(TypeInfo(TAlignment),theStringname));////////////////////////////////ty