内容列表
- 选择一个网路邻居
- ================= 选择一个网路邻居 =====================function SelectComputerName(handle: hwnd; var ComputerName: string): boolean;var BrowseInfo: TBrowseInfo; ItemIDList
- 分类：Delphi 查阅全文
- 文件与Olevariant
- //---------------------------读数据到olevariant//pfileName:带路径的文件名function Getobj(pfileName:string): OleVariant;var fs:TFileStream;begin fs := TFileStream.Create(pfileName,fmOpenRead); try&nbs
- 分类：Delphi 查阅全文
- 关于时间函数
- 【0】在工程文件中Application.Run语句之前加入下面语句,可不让主Form在运行时显示: Application.ShowMainForm := False;
【1】显示设置时间的对话框 ShellExecute(Handle, 'open', 'control', 'date/time', ni
- 分类：Delphi 查阅全文
- 小知识，如Form淡出、捕捉Form最小化
- (*)Form淡出1)AnimateWindow(Form1.Handle,1000,AW_BLEND);//淡入 AnimateWindow(Form1.Handle,1000,AW_HIDE or AW_BLEND);//淡出2)窗体有AlphaBlend属性和AlphaBlendValue属性，将AlphaBlend属性设为True，然后在Timer组件中随着时间改变AlphaB
- 分类：Delphi 查阅全文
- 中国农历算法(delphi)
- // 节日算法 请参见 《农历与西历对照、万年历》unit CNYear;
interface
uses sysutils;
type TCNDate = Cardinal;
function DecodeGregToCNDate(dtGreg:TDateTime):TCNDate; function GetGregDateFromCN(cnYear,cnMonth,cnDay:word;
- 分类：Delphi 查阅全文
- 在MSSQL版参与问题有所感触
- ---------------------------------------------问题一目了然，人气比较旺，问答效率自然高
参与了3个问题，很快揭了2个
这个也可能和工具自身的特点有关系....---------------------------------------------可是delphi呢？？borland把不争气的孩子们宠坏了：
有说干就干的资本：托几个窗口、控件，拷贝
- 分类：Delphi 查阅全文
- 我观MIDAS
- 非常同意现在的系分、高手都很热衷于赶时髦，或曰“浮躁”。我也见过非常非常之多人是在为了三层而三层，把简单的问题复杂化，把没必要做成三层的应用特地改成三层，结果得不偿失，事倍功半。
但对王兄后面的一些技术性分析，我觉得还是有值得商榷之处。
首先，李维所说的：DCOM 的连接速度较SOCKET CONNECTION 慢， 但是连接完成后， 传输数据较SOCKET CONNE
- 分类：Delphi 查阅全文
- Delphi 与 Excel (二)
- //////////////////////////////// Excel 的一个宏 ///////////////////////////////////Sub setpageinfo(ByVal regDateStr As String)
Dim I, maxRow As Integer &nb
- 分类：Delphi 查阅全文
- delphi 常用函数
- Abort 函数 引起放弃的意外处理Abs(real)
- 分类：Delphi 查阅全文
- mdb Utils (Access)
- unit mdbUtils;
interfaceuses windows,classes,sysutils,dao2000,dao97, comobj,adodb{$ifdef ver140},variants{$endif},dialogs;
type TFieldRec=record fieldname:string;
- 分类：Delphi 查阅全文
- 数据压缩 -- 应用
- 例：多个目录下多个文件压缩到一个文件； 对压缩文件解压到个对应目录。 //压缩文件流: 文件名长度 + 文件名 + 文件长度 + 压缩流 uses Lh5Unit.pas; //见 数据压缩 -- 源码procedure Compress;var fOutStr: T
- 分类：Delphi 查阅全文
- 数据压缩 -- 源码
- (******************************************************************************)(* &nbs
- 分类：Delphi 查阅全文
- 数据补丁
- 当公司要定期给客户发送数据时，而且数据库很大，但每次更改量很小，这样就不毕发送整个数据库，只要发送一个数据补丁，在客户端对数据补丁操作一下即可更新整个数据库。下面对单个表操作=================================================================================== (公司端：
- 分类：Delphi 查阅全文
- 提高FastReplace速度 (fStrRep.pas)
- {其实还可以在FastReplace中先对FindStr进行判断，如果FindStr完全是中文的话，直接可以在FastReplace中用FastPos，这样可以提高速度。}
unit fStrRep;
interface
Type TFastPosProc = function( const aSourceString, aFindString
- 分类：Delphi 查阅全文
- fileStream
- procedure TForm1.Button1Click(Sender: TObject);var f1:TFileStream; filename:String;begin OpenDialog1.Execute ; filename:=OpenDialog1.F
- 分类：Delphi 查阅全文
- TextFile读写
- function readFromFile:string;var s,s2:string; F:TextFile; begin OpenDialog1.FileName:=''; OpenDialog1.Filter:='*.XML|*.xml'; s:=''; result:=''; if not OpenDialog1.
- 分类：Delphi 查阅全文
- 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) s
- 分类：Delphi 查阅全文
- 如何从现有程序升级到支持多国语言的程序！
- CSDN上有朋友问起如何从已经完成的项目升级到使用多国语言的程序，相信很多朋友也并非从项目的一开始就使用TLMPack的（也确实没有这个必要），下面我就简单的介绍一下怎么样将已有的项目升级为支持多国语言的项目。
1。在Delphi（或BCB）中安装TLMPack标准版，关于如何安装帮助文件中有比较详细的说明了，这里不在累述了。（当然安装标准版的前提是你使用标准的AnsiVCL控件来开发的程序，如
- 分类：Delphi 查阅全文
- 甘特图排程组件开发(TsyGunter)
- 甘特图在Project2000中,很是好用,可是我想在项目开发中还要买了MS的Project2000的版权? 所以索性自己开发一套相关的组件.
- 分类：Delphi 查阅全文
- 保存数据到 olevariant
- function TTAutoTest.Getobj: OleVariant;var t:Tdataclass; ms:tmemorystream;begin t := TDataclass.create(nil); ms := Tmemorystream.create; try t.Savetostream(ms
- 分类：Delphi 查阅全文