RSS订阅 | 匿名投稿
您的位置:网站首页 > 技巧

delphi命令行窗口实现9*9乘法表

vari,j:Integer;beginfori:=1to9dobeginforj:=1toidowrite(i*j:3);writeln;end;readln;end.代码含义:vari,j:Integer;定义两...
类别:技巧 标签: 作者:admin 日期:2016-01-27 00.01.43

Delphi-Edit中只能输入数字且只能输入一个小数点

使用这种功能必须使用OnKeyPress事件,该事件是在窗体中获得键盘输入的焦点,并且在用户按键时发生。OnKeyPress事件中有个重要参数:Key。Key参数为Char型,它能够获得用户的按键值。下面的代码就只能输入0~9之间的数…
类别:技巧 标签: 作者:admin 日期:2016-01-26 23.59.49

Delphi使用ZLib压缩和解压文件

主要用到的是MSAA(MicrosoftActiveAccessibility)函数:****FromLResult,该函数在动态链接库oleacc.dll中定义。usesSHDocVw,MsHtml,ActiveX;typeT****FromLResult=function(LRESULT:lResult;constIID:TIID;WPARAM:w…
类别:技巧 标签: 作者:admin 日期:2016-01-26 21.58.56

Delphi通过IE窗口句柄获取网页接口(IWebBrowser2)

主要用到的是MSAA(MicrosoftActiveAccessibility)函数:ObjectFromLResult,该函数在动态链接库oleacc.dll中定义。usesSHDocVw,MsHtml,ActiveX;typeTObjectFromLResult=function(LRESULT:lResult;constIID:TIID;WPAR…
类别:技巧 标签: 作者:admin 日期:2016-01-26 21.58.56

Delphi点击网页弹出的Alert对话框的确定按钮

实现的方法有很多,一般都是使用WindowsAPI函数遍历窗口,查找指定标题的窗口,然后从该窗口查找确定按钮,向该按钮发送鼠标消息进行模拟点击。由于IE8由Alert弹出的网页对话框的标题是“来自网页的消息”,而IE6由A…
类别:技巧 标签: 作者:admin 日期:2016-01-26 21.54.57

delphi 一个整数转其二进制表示的小函数

functionIntToBinStr(v:Integer):String;varb:array[0..32]ofChar;o:Integer;constChars:array[0..1]ofChar=('0','1');begino:=31;ifv<>0thenbeginwhilev<>0&n...
类别:技巧 标签: 作者:admin 日期:2016-01-23 23.37.25

Delphi 进制转换之10进制与34进制互转

34进制,不好优化。要是32进制,除法的地方和乘法地方,应该可以换成移位操作。unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,...
类别:技巧 标签: 作者:admin 日期:2016-01-23 23.35.21

Delphi 百度输入提示 Delphi 实现

我们在百度时,输入部分内容,即可获得输入项选择列表,从而大大减少录入,用户的体验很好,下面是用delphi模拟这种效果的设计定义DataLst:TStringList;用于存放供选择的数据。Edt1:TEdit;用于接收用户录入lbSerach…
类别:技巧 标签: 作者:admin 日期:2016-01-09 16.12.40

Delphi 将Label的Caption内容竖向显示

一直以为Label控件的caption内容不能够竖向显示,当用有此要求时,往往采用了其它控件实现,但它是能够做到的,方法:1.在属性编辑器中,点击caption后面的小按钮,会弹出一个caption编辑器(若没有小按钮,请换成de…
类别:技巧 标签: 作者:admin 日期:2016-01-09 16.10.41

Delphi 根据经纬度计算地球上两点之间的距离

EARTH_RADIUS=6378137.0;//单位MfunctiongetRad(d:Double):Double;beginResult:=d*PI/180.0;end;functionGetFlatternDistance(lat1,lng1,lat2,lng2:Double):Double;varf,g,l...
类别:技巧 标签: 作者:admin 日期:2015-05-04 19.27.58

delphi怎么实现一定范围内的随机数呢?

delphi怎么实现一定范围内的随机数呢?//指定范围的随机数函数functionRand(min,max:Integer):Integer;beginrandomize;Result:=random(max)mod(max-min+1)+min;end;//调用Rand(100,1000);显示结果是100~1000之间的随…
类别:技巧 标签: 作者:admin 日期:2015-04-27 20.25.15

Delphi运行时的问题,cannot focus a disabled or invisible window!

Delphi运行时的问题,cannotfocusadisabledorinvisiblewindow!<spanstyle="color:#333333;fon...
类别:技巧 标签: 作者:admin 日期:2014-08-12 19.26.32

delphi xe 提示没有定义DecimalSeparator等的解决方法

只需要把DecimalSeparator前加上FormatSettings变成<wbrstyle="text-align:left;text-transform:none;background-color:#fbf8f4;text-indent:0px;font:16px/28px'HiraginoSans...
类别:技巧 标签: 作者:admin 日期:2014-08-02 20.45.18

Delphi XE6 利用FastMM4检测内存泄漏

1.在项目中使用FastMM4打开项目文件,让第一个单元引用FastMM4.DelphiXE6利用FastMM4检测内存泄漏2.定义编译条件变量Shift+Ctrl+F11,打开项目设置窗口,设置Conditionaldefines。DelphiXE6利用FastMM4检测内存泄漏定…
类别:技巧 标签: 作者:admin 日期:2014-07-29 17.00.40

delphi xe5 delphi 解析 json

最简单的JSON大致像这样{"date":"周二(今天,实时:12℃)","dayPictureUrl":"http://api.map.baidu.com/images/weather/day/duoyun.png","nightPictureUrl":"http://api.map.baidu.com/images/weather/night/duoyun.p…
类别:技巧 标签: 作者:admin 日期:2014-07-29 16.46.51

减小Delphi XE5编译出来的程序体积

默认DelphiXE5编译出来的程序体积很大。一般用两个方法可以很大程度上减少程序体积。一、在工程中用编译指令禁用RTTI禁用的方法很简单,就是要在工程的Uses语句前添加下面的定义就可以了:{ReduceEXEsizebydisabling…
类别:技巧 标签: 作者:admin 日期:2014-07-29 16.43.15

Delphi运行时拖拉、改变元件大小

應要求在程式執行時還要可以拉拖、改變元件大家~分享一個不錯的函數procedureDragResizeControl(WinControl:TControl;Shift:TShiftState;X,Y,Precision:integer);varSC_MANIPULATE:Word;beginif(XPrecision)and(Y<W…
类别:技巧 标签: 作者:admin 日期:2014-06-09 09.57.04

Delphi使用SPComm没办法触发ReceiveData

SPComm在连线Com机器時,時候没办法触发ReceiveData,后来才知道StartComm後要留點時間給它喘氣(連線)。所以加上sleep~vars:Ansistring;beginRepCom.StartComm;s:=Chr(16)+Chr(4)+Chr(1);sleep(50);RepCom.WriteComm…
类别:技巧 标签:SPComm 作者:admin 日期:2014-06-09 09.55.39

delphi 调用百度地图api

一、调用javascript的方法两种:第一种:采用...
类别:技巧 标签: 作者:admin 日期:2014-03-08 10.11.48

Delphi实现解析百度搜索结果link?url=

unituMain;{Createdat2012/01/19微博http://weibo.com/yinyongyou博客http://blog.csdn.net/MichaelJScofield}interfaceusesWindows,Messages,SysUtils,&n...
类别:技巧 标签: 作者:admin 日期:2014-01-23 22.06.32