Delphi两个有用的函数

function StrToHexStr(const s: string): string; var   i: Integer;   vBuff: TBytes;   AnSiStr: AnsiString; begin   Result := '';   if s = '' the...

2013-05-21 09:50:16

阅读数 3262

评论数 0

Delphi实现AnsiString与WideString的转换函数

在Delphi下,AnsiString 和 WideString 的存储与管理各有不同,这里提供互相转换的函数一对。 /// Wide String -> Ansi String function WideStringToAnsiString(const strWide: WideStrin...

2013-01-26 16:23:14

阅读数 6605

评论数 0

StrToHex

function StrToHex(s: string): Integer; begin Result := StrToInt('$' + s); end;

2013-01-26 16:17:18

阅读数 1617

评论数 0

Delphi静态变量

在Delphi中也可以定义静态变量, 有两种方法: 一是使用编译开关{$J+}{$J-}包含一个常量定义 二是使用指针操作常量 下面列出示例代码: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, C...

2013-01-03 23:50:00

阅读数 2564

评论数 0

Delphi关闭进程

procedure TForm2.Button2Click(Sender: TObject); var   h: HWND;   dwPid: DWORD;   hThreadProcess: THANDLE;   s: string; begin   h := FindWindow...

2012-12-16 21:05:22

阅读数 1668

评论数 0

Delphi GUI程序中使用控制台

procedure TForm1.Button1Click(Sender: TObject); var s: string; begin AllocConsole; try SetConsoleTitle('测试用例'); s := Format('控制台...

2012-08-08 10:21:01

阅读数 1687

评论数 0

Delphi/Lazarus下实现无缝窗口

http://codegoo.net/forum.php?mod=viewthread&tid=78&extra=

2012-06-21 16:43:53

阅读数 1681

评论数 0

让控件的DropdownMenu或者PopupMenu弹出来

procedure TMainFrm.ToolButton6Click(Sender: TObject); var MemuPos: TPoint; begin MemuPos := TToolButton(Sender).ClientToScreen(Point(0, 0...

2012-05-04 16:34:44

阅读数 1433

评论数 0

delphi 获取本机IP地址和MAC地址

unit NetFunc; interface uses SysUtils, Windows, dialogs, winsock, Classes, ComObj, WinInet, Variants; // 错误信息常量 const C_Err_GetLocalI...

2012-04-27 11:09:25

阅读数 7744

评论数 0

RadSrudio Demos

SVN: https://radstudiodemos.svn.sourceforge.net/svnroot/radstudiodemos/

2012-04-07 16:14:37

阅读数 633

评论数 0

Delphi不注册COM直接使用ActiveX控件并绑定事件

文笔不行,直接上源码: 主窗口: unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphic...

2012-03-30 15:59:15

阅读数 5683

评论数 3

Delphi(Lazarus)怎样不注册调用COM

结合网络上的一片文章(具体那篇文章,你可以在百度里边找“Delphi不注册调用COM”),稍加修改,得出以下心得: 首先是CreateCom(来自网络) function CreateComObjectFromDll(CLSID: TGUID; DllHandle: THandle):...

2012-03-20 17:27:19

阅读数 3518

评论数 3

Delphi 怎么不注册 dll 就调用 com

一.方法 lich (2003-10-30 22:16:00)  前言: 如果你的程序中使用了 COM对象或者 OCX控件, 发布程序的时候必须带上相关的 DLL文件或者 OCX文件, 同时还需要注册到系统中, 如果我想让我的程序 Copy & Run, 不需要安装,(现在...

2012-03-10 17:28:47

阅读数 1866

评论数 1

浮点数问题

今天在查询的时候,明明两数相减等于0,但就是得不到预期的结果, 比如: IF Float1 - Float2 > 0 Print('成功!') 最后得知,此为浮点数问题: 现在有两种转换方式: 1.SQL ALTER FUNCTION [dbo].[浮点数值](@数量 Fl...

2012-01-10 15:29:58

阅读数 508

评论数 0

获取系统语言

function ReturnLanguage: string; var LCID: Cardinal; begin Result := ''; LCID := GetSystemDefaultLCID; case LCID of 2052: Result := '简体中文...

2011-12-21 13:49:15

阅读数 1439

评论数 0

Delphi中释放父控件里的所有子控件

procedure TFrmMain.ClearControls(AParent: TWinControl); var i: Integer; begin for i := AParent.ControlCount - 1 downto 0 do begin if not APar...

2011-12-02 14:57:33

阅读数 4402

评论数 0

获取系统中的语言

Function GetLanguage:string; var i:integer; sLists:TStrings; begin sLists:=TStringList.Create; try for i:=0 to Languages.Count-1 do ...

2011-12-02 14:06:48

阅读数 1051

评论数 0

Delphi以二进制方式读取图片并显示出来

procedure TForm1.BitBtn1Click(Sender: TObject); var StringStream : TStringStream; FSize : integer; FileData : string; i : integer; DataStr : string; ...

2011-12-02 09:41:55

阅读数 5385

评论数 0

Delphi加载网络图片

Delphi加载网络图片 uses Jpeg procedure TForm1.Button1Click(Sender: TObject); var imagestream:TMemoryStream; jpg:TJpegImage; begin imagestream :...

2011-12-01 16:23:41

阅读数 4559

评论数 0

今天在Delphi中使用ADO连接Excel

今天在Delphi中使用ADO连接Excel(以前在一本书看过,复习一下-_-!!),有所收获,不敢独享。第一部分:1. 设置ADOConnection的ConnectionString属性的OLE DB的提供者要选择Microsoft Jet 4.0 OLE DBProvider(这本来是用于连...

2011-11-15 17:00:41

阅读数 7665

评论数 0

提示
确定要删除当前文章?
取消 删除
关闭
关闭