宋威的专栏

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Button1: TButton;    procedure Button1Click(Sende

str = 主办一,主办二如何能把它分解为str1 = 主办一str2 = 主办二不知代码该怎么写？----------------------var  S: string;  TS: TStrings; //最好不要用string数组，用list更加方便begin  S := 主办一,主办二;  S := StringReplace(S, , , [r

Delphi控制Excel2000类　别:COM & ActiveX(一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( Excel.Application );1) 显示当前窗口:ExcelApp.Visible := True;2) 更改 Excel 标题栏:ExcelA

用API函数实现简单的网络发送和接收实际工作中的代码，向服务器发送特定格式命令后，取得想要的工艺位号数据。直接复制过来的，有兴趣的自己看吧。unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,    Dialogs,winsock, StdCtrls,

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, RMD_ADO, RM_Common, RM_Class, RM_GridReport, StdCtrls, ImgList;type  TForm1 = class(TForm

TStrings的AddObject方法应用    (1) integer 于 Object   cmbBox.Items.AddObject(A_Value,pointer(I_Value));      I_Ret:=cmbBox.itemindex;   I_perID:=integer(cmbBox.Items.Objects[I_Ret]);(2) string 于 Object  A_

再谈Delphi 7控制Word 2000——使用模板我首先想说明的是这篇文章算是我以前写的“使用Delphi 7控制Word 2000生成文档的方法”http://blog.csdn.net/neowang/archive/2004/10/08/127522.aspx的续篇（到目前为止，该文章已经被浏览了214＋11次）。因为用户的需求发生了改变，我不得不在复习备考自然辩证法的几天里挤出时间来改

{$R *.dfm}procedure txttojpeg(txt, filename: string; brush_color: tcolor; font: tfont;  font_color: tcolor; width, height: integer);var  temp: tbitmap;  jpeg: tjpegimage;  i, j: integer;begin  temp :=

Object Pascal中可以建立丰富的数据类型。数组毫无疑问也是众多自定义数据类型中的一种。     Type       TA = array[0..9] of Integer;     ...     var       A : TA;     和下面这段代码通常效果是相同的（不同的地方在类型篇再说）     var       A : Array [0..9] of Integer;  

一、预备知识?程序的内存分配一个由c/C++编译的程序占用的内存分为以下几个部分1、栈区（stack）? 由编译器自动分配释放 ，存放函数的参数值，局部变量的值等。其操作方式类似于数据结构中的栈。2、堆区（heap） ? 一般由程序员分配释放， 若程序员不释放，程序结束时可能由OS回收 。注意它与数据结构中的堆是两回事，分配方式倒是类似于链表，呵呵。3、全局区（静态区）（static）?，全局变量

如何避免TStringList里的Items雷同？利用属性Duplicates来做避免：var  sl : TStringList;begin  sl := TStringList.Create;  with sl do  begin    Sorted     := True;    Duplicates := dupIgnore;    //    // 在这里添加 items

Wave文件头的第$18~$19和$1C~$1D字节记录WAVE的采样频率 WAVFile.pas单元===============================================================================unit WAVFile;interfaceuses  Classes, SysUtils;const  { Used wi

http://www.delphibbs.com/keylife/iblog_show.asp?xid=25412作者: myveremy标题: TreeView的用法 关键字: TreeView的用法 分类: 个人专区 密级: 公开 (评分: , 回复: 0, 阅读: 190) »» 大富翁论坛版权所有 一：TreeView.Items[0].Expanded

http://www.delphibbs.com/keylife/iblog_show.asp?xid=25407作者: sungods标题: EXCEL 操作积累 关键字: 分类: 个人专区 密级: 公开 (评分: , 回复: 1, 阅读: 343) »» 1.创建并打开excel applicationvar workbooks: OleVariant;..

http://www.delphibbs.com/keylife/iblog_show.asp?xid=25526procedure TFrmPrint.UpdateImageList;varMyImage:TAllImage;MyLabel:TLabel;SPos,i, j:integer;NumOfDICOMFrame:integer;beginfor i := scbImageList.

 http://blog.csdn.net/CXXSoft/archive/2006/08/23/1108211.aspxDelphi之东进模拟语音卡(D160A)可复用源码网友急需，先开源吧，文档过几天慢慢补。设计简介：1、   将卡、通道分别单独进行设计与封装。2、   所有的外部操作接口都封装在卡类这一类。3、   在我的项目中，在卡类这一级还增加了适配器或者代理

Format是一个很常用，却又似乎很烦的方法，本人试图对这个方法的帮助进行一些翻译，让它有一个完整的概貌，以供大家查询之用：首先看它的声明：function Format(const Format: string; const Args: array of const): string; overload;事实上Format方法有两个种形式，另外一种是三个参数的，主要区别在于它是线程安全的，但并不

1.数论算法 求两数的最大公约数 function gcd(a,b:integer):integer; begin if b=0 then gcd:=a else gcd:=gcd (b,a mod B); end;  求两数的最小公倍数 function lcm(a,b:integer):integer; begin if alcm:=a; while lcm mod b >0 do inc(l

这两天就要开学了。之前几天太忙了，没时间写Blog，今天就写写Delphi 2005的新特性，for…in…语句在Delphi2005中，新增加了一个非常有用的语句，这个特性在其他很多语言中都有，就是著名的foreach循环，越来越多的人发现这个有用的东西了，也越来越多的语言在编译器层面直接加入了对这个的支持了。Delphi的编译器在集合类型，数组类型，字符串类型以及提供了GetEnumerato

想必很多人都对正则表达式都头疼.今天,我以我的认识,加上网上一些文章,希望用常人都可以理解的表达方式.来和大家分享学习经验.　　开篇,还是得说说 ^ 和 $ 他们是分别用来匹配字符串的开始和结束，以下分别举例说明 　　"^The": 开头一定要有"The"字符串; 　　"of despair$": 结尾一定要有"of despair" 的字符串; 　　那么,　　"^abc$": 就是要求以abc开

unit unitSql;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, DB, ADODB, Grids, ComCtrls,DateUtils,ComObj,Excel2000,  ExtCtrls;type  TForm1

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;type  TForm1 = class(TForm)    ADOConnection1: TADOCo

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, RpBase, RpSystem, RpDefine, RpRave, StdCtrls, RpRender,  RpRenderCanvas, RpRenderPreview,

总结一下SQL语句中引号()、quotedstr()、()、format()在SQL语句中的用法以 及SQL语句中日期格式的表示(#)、()在Delphi中进行字符变量连接相加时单引号用(),又引号用()表示首先定义变量var AnInt:integer=123;//为了方便在此都给它们赋初值。虽然可能在引赋初值在某些情况下不对AnIntStr:string=456;A

如何使用Delphi设计强大的服务器程序     选择自 hunter8888 的 Blog  关键字   如何使用Delphi设计强大的服务器程序 出处      现在网络的流行，使得服务器程序得到了广泛的应用，那么我们使用Delphi如何设计出强壮的服务器呢？有人说，如果要设计服务器的话，一定要使用VC来设计，其实这个人说的有一定道理，因为如果你要使用Delphi来设计服务器的话，要想设计高效

进制转换程序示例源码之一 { ##################################################################### # 声明:本站资源由Delphi编程驿站[http://www.delphidak.com]整理收集， # 部分资源来自于网络,转发前请注意尊重版权,如果您发现本站的资源 # 侵犯了您的版权，请来信告知，版主将立即删除。 # #*

绘制图形的程序单元代码 unit fxhsyplaa;interface usesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, Db, DBTables; type  TForm1 = class（TForm）    Imag

http://www.delphibbs.com/delphibbs/dispq.asp?lid=3115124

Implementing Multiple Undo in a Graphics Application by Steve Harman - sharman1@uswest.net The methodology presented here is useful for 24-bit bitmaps and small images, although the technique could be

tedit.Create(self).Name:=edit1;  with tedit(findcomponent(edit1)) do  begin    parent := self;    text := 2222;  end;

var Year,Month,Day,Hour,Minute,Second,MilliSecond:Word;MyDate,MyTime,MyDateTime:TDateTime;数字转日期  MyDate:=EncodeDate(Year,Month,Day);数字转时间  MyTime:=EncodeTime(Hour,Min,0,0);     MyDateTime:=EncodeDateT

Socket I/O模型全接触     选择自 flyinwuhan 的 Blog  关键字   Socket I/O模型全接触 本文简单介绍了当前Windows支持的各种Socket I/O模型，如果你发现其中存在什么错误请务必赐教。    一：select模型    二：WSAAsyncSelect模型    三：WSAEventSelect模型    四：Overlapped I/O 事件通

 http://blog.csdn.net/CXXSoft/archive/2006/08/23/1108211.aspxDelphi之东进模拟语音卡(D160A)可复用源码网友急需，先开源吧，文档过几天慢慢补。设计简介：1、   将卡、通道分别单独进行设计与封装。2、   所有的外部操作接口都封装在卡类这一类。3、   在我的项目中，在卡类这一级还增加了适配器或者代理