Delphi - 随笔分类(第3页) - sunjun0427

Delphi OleVariant转化成string

摘要：uses Variants;VarToStr();如果返回的是一个数组的话varUTempPoint: Pointer;UOutArr: array[1..6] of string;//假设返回的是1维数组有6个元素begin UTempPoint := VarArrayLock(返回的OleVariant变量);//锁定输出变体数组 try Move(UTempPoint^,UOutA... 阅读全文

posted @ 2010-11-04 09:43 sunjun0427 阅读(3144) 评论(1) 推荐(0)

Delphi获取本机MAC地址

摘要：function MacAddress: string;var Lib: Cardinal; Func: function(GUID: PGUID): Longint;stdcall;GUID1, GUID2: TGUID;begin Result := ''; Lib := LoadLibrary('rpcrt4.dll'); if Lib <> 0 then begin if Wi... 阅读全文

posted @ 2010-10-21 14:45 sunjun0427 阅读(1447) 评论(0) 推荐(0)

Delphi 小知识汇总

摘要：一些delphi开发的小技巧2008-04-22 21:16这是我从网上收集到的一些delphi开发的小技巧，现在与大家一起分享◇[DELPHI]网络邻居复制文件uses shellapi;copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false);◇[DELPHI]产生鼠标拖动效果通过Mous... 阅读全文

posted @ 2010-10-21 11:33 sunjun0427 阅读(681) 评论(0) 推荐(0)

如何在一个窗体中嵌入另一个窗体

摘要：本例子为在Form1的Panel中显示Form2窗体，请注意例子中的reintroduce关键字//Form1 父窗体usesunit2;procedureTForm1.FormCreate(Sender:TObject);beginform2:=TForm2.Create(Panel,self);form2.BorderStyle:=bsNone;form2.WindowState:=wsMax... 阅读全文

posted @ 2010-10-21 11:30 sunjun0427 阅读(534) 评论(2) 推荐(0)

使代码简洁的 5 条忠告-Delphi

摘要：写代码是一种艺术。使用Delphi，任何人都可以轻而易举地开发出某种软件、完成某些任务。而完美的代码则只有真正的高手才能写出。除了正确的缩进、大小写、命名规则之外，请时刻牢记爱因斯坦的名言--简单就是美。下面将谈及的五个代码问题，可能是初学者、甚至一些老鸟都会犯的错误。忠告一布尔型变量的赋值操作应该是直接的。例如，在一个if/then/else语句中，if子句将布尔型变量赋值为True，而else... 阅读全文

posted @ 2010-10-21 11:12 sunjun0427 阅读(566) 评论(4) 推荐(0)

Windows关机函数ExitWindowsEx使用大全-Delphi（适用Windows所有操作平台）

摘要：{=======================================================================================================================关闭Windows函数ExitWindowsEx(UINT uFlag,DWORD:dwReserved)说明：控制WINDOWS的开关：如关闭WINDOWS，... 阅读全文

posted @ 2010-10-21 11:00 sunjun0427 阅读(2116) 评论(0) 推荐(0)

获取本月第一天和最后一天的最简单的写法

摘要：var FirstDay, LastDay: TDateTime;begin FirstDay := StrToDate(FormatDateTime('yyyy-MM-01', Now)); LastDay := IncMonth(FirstDay) - 1; ShowMessage(FormatDateTime('yyyy-MM-01', Now)); //本月第一天 ShowMessage(... 阅读全文

posted @ 2010-10-21 10:54 sunjun0427 阅读(509) 评论(0) 推荐(0)

Delphi分割字符串的函数--ExtractStrings

摘要：Delphi中-ExtractStrings，分割的同时还可以去空字符串和去空白（可以自定义）。UnitClassesSyntaxExtractStrings(Separators: TSysCharSet; WhiteSpace: TSysCharSet; Content: PAnsiChar; Strings: TStrings): Integer;Description < by sp... 阅读全文

posted @ 2010-10-21 10:46 sunjun0427 阅读(2422) 评论(0) 推荐(0)

Format、FormatDateTime、FormatFloat 的用法

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

posted @ 2010-10-21 10:11 sunjun0427 阅读(515) 评论(0) 推荐(0)

Delphi只能运行一个程序实例的方法

摘要：在project/view source里编辑。利用Windows系统的全局原子全局原子利用向系统添加全局原子的方法，全局原子由Windows 系统负责维持，它能保证其中的每个原子都是唯一的，管理其引用计数，并且当该全局原子的引用计数为0时，从内存中清除。我们用GlobalAddAtom 函数向全局原子添加一个255个字节以内的字符串，用GlobalFindAtom来检查是否已经存在该全局原子，... 阅读全文

posted @ 2010-10-19 11:26 sunjun0427 阅读(386) 评论(2) 推荐(0)

Delphi操作XML

摘要：创建IXMLDOMDocument对象的三种方法：(1)[方法1] 直接创建 IXMLDOMDocument , 例(1) uses msxml; var DOC:IXMLDOMDocument; doc := CoDOMDocument.create; ..... Doc := nil;A)doc.load('C:\temp.xml'); //从文件载入B) 动态创建 var aElement... 阅读全文

posted @ 2010-10-19 10:24 sunjun0427 阅读(798) 评论(0) 推荐(0)

Delphi Application.MessageBox详解

摘要：1. Text：要显示的讯息2. Caption：讯息视窗的标题列文字3. Flags：讯息旗标 3.1. 可指定讯息视窗上的图示 3.2. 可指定讯息视窗出现的按钮 3.3. 可指定预设Focus在哪一个按钮 3.4. 可指定是否 Modal 3.5. 其他引数说明：Text、Caption 引数为 PCahr 型态，字串型态的变数可用 PChar()转换，若直接传入一个字串的话，就不用转型。例... 阅读全文

posted @ 2010-10-19 10:19 sunjun0427 阅读(488) 评论(0) 推荐(0)

关于delphi Com+调用C# DLL的一点说明

摘要：现在来说一下调用过程：【本地调试通过，环境是XP，delphi7.0,vs2005】首先在vs2005中创建一Class Library项目，添加2个cs文件，代码分别为：声明一个接口1usingSystem;2usingSystem.Collections.Generic;3usingSystem.Text;4namespacebeep_Class5{6publicinterfaceIGO7{... 阅读全文

posted @ 2010-10-15 18:09 sunjun0427 阅读(464) 评论(0) 推荐(0)

Delphi判断一个字符是否为汉字的最佳方法[转]

摘要：由于从 Delphi2005开始支持中文标识符，在编写 PASCAL 词法分析器的过程中遇到了这个问题，经过多次试验找到了解决方案，至今未发现问题。代码如下：view plainprint?//判断字符是否是汉字functionIsHZ(ch:WideChar):boolean;vari:integer;begini:=ord(ch);if(i<19968)or(i>40869)the... 阅读全文

posted @ 2010-10-14 12:26 sunjun0427 阅读(658) 评论(0) 推荐(0)

一名Delphi程序员的开发习惯（转）

摘要：有关开发习惯的一些想法，如鲠在喉，不吐不快。究其发贴动机，当然不排除有骗取参与分的可能，但另一方面，也希望能给同行（念Xing）者提供一些建议，或者参考(希望不是误人子弟)。同时，也希望各位能够就我的这些陋习，发表一点看法，给出批评和指正的意见。谢谢。一．建立工程目录首先，第一步要做的，当然是给新项目建一个单独的目录（别笑）。目录名称与项目名称同名，或者另取一个也可，只要清楚、简练。然后，在此目录... 阅读全文

posted @ 2010-10-14 09:48 sunjun0427 阅读(692) 评论(1) 推荐(0)

Delphi从EXE或DLL获取ICO图标

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button2: TButton; Button3: TButton; OpenDialog1: TOpenD... 阅读全文

posted @ 2010-10-13 13:17 sunjun0427 阅读(1340) 评论(0) 推荐(0)

怎么用DevExpress的dxBarManager动态创建按钮Button与事件OnClick

摘要：动态添加Buttonprocedure TForm1.Button1Click(Sender: TObject);var NewItemLink: TdxBarItemLink; kk: TdxBarSubItem; MyBtn: TdxBarButton;begin MyBtn := TdxBarButton.Create(Self); MyBtn.Caption := '通过程序放上去的'; ... 阅读全文

posted @ 2010-10-11 12:44 sunjun0427 阅读(1960) 评论(0) 推荐(0)

variant 和 Stream 的互換

摘要：在Com, Dcom, Com+中經常要用到variant, 而在delphi 中的文件操作之類中, 更多的用到Stream, 有時, 需要適當的互換!Variant --> Streamvar ov: OleVariant; ms: TStream; p: Pointer;begin ov := dmMain.ComConnection.AppServer.TimeZone; ms := ... 阅读全文

posted @ 2010-09-30 09:53 sunjun0427 阅读(272) 评论(0) 推荐(0)

[转载]Delphi 修改 VCL Source Code 需知

摘要：from : http://bbs.ee.ntu.edu.tw/boards/Programming/10/2/13.html◇ Delphi 修改 VCL Source Code 需知Cannot single step into VCL source code anymore 阅读全文

posted @ 2010-09-30 09:52 sunjun0427 阅读(516) 评论(0) 推荐(0)

Delphi一行语句实现edit只能输入数字

摘要：SetWindowLong(edt_UserName.Handle,GWL_STYLE,ES_NUMBER or GetWindowLong(edt_UserName.Handle,GWL_STYLE)) 阅读全文

posted @ 2010-09-29 09:59 sunjun0427 阅读(489) 评论(0) 推荐(0)

随笔分类 - Delphi