delphi Adoquery filter使用-Delphi编程技巧大全

delphi Adoquery filter使用

当我们在操作数据集时,往往需要对数据进行筛眩例如:一个名为Customer的数据表,它具有CustNo、CustName、Country、Address、Phone、State、TaxRate等字段,如果只想查看国别为China或顾客号大于10...
Delphi语法基础 步步精通 PDF-Delphi编程技巧大全
Delphi 复制文件到剪贴板-Delphi编程技巧大全

Delphi 复制文件到剪贴板

将文件复制或剪切到剪贴板,可以在资源管理器、桌面等地方粘贴。在网上找了下,找到一些代码,不过发现都有点bug,现在将修正后的分享出来。procedure CutOrCopyFiles(FileList: Ansi...
29天前
04716
Delphi中使用Android振动-Delphi编程技巧大全

Delphi中使用Android振动

例如,当您的计算机被游戏应用程序损坏时,您希望产生振动效果。要在Delphi中使用Android振动器,请使用Android Vibrator类。使用Android振动器时,您需要设置权限。样例代码在窗体上放置两个按...
19天前
03215
Delphi HexToInt32-Delphi编程技巧大全

Delphi HexToInt32

function HexToInt32(const aHex: string ):Integer;var  I,L,K: Integer;begin  Result := 0 ;  if aHex ='' then    begin      Exit;   ...
29天前
03615
Delphi 字符串、文件路径 排序算法-Delphi编程技巧大全

Delphi 字符串、文件路径 排序算法

//正序function SortItem(List: TStringList; Index1, Index2: Integer): Integer;var A1, A2: String;    Dir1, Dir2: String;    Name1, Name2: String;begin//delphitop...
29天前
05615
Delphi TstringList Stringlist的特殊用法-Delphi编程技巧大全

Delphi TstringList Stringlist的特殊用法

procedure TForm1.btn1Click(Sender:TObject);var  m: Integer;  s: string;  strlst :TStrings;begin  strlst:= TStringList.Create;  strlst.Add('张三=80'); ...
29天前
05215
delphi 截取被遮挡的Window画面-Delphi编程技巧大全

delphi 截取被遮挡的Window画面

 只要不是最小化的窗口,无论它被遮挡一部分还是全部,无论它的位置是否超出屏幕边界,都可以抓到下面是代码:function PrintWindow(Wnd: HWND; hDCBlt: HDC; nFlags: DWord): Bool; stdca...
29天前
03815
Delphi IFileOperation拷贝复制文件带进度条-Delphi编程技巧大全

Delphi IFileOperation拷贝复制文件带进度条

uses ActiveX, ComObj, ShlObj,ShellApi;type  TFileSystemBindData = class (TInterfacedObject, IFileSystemBindData)    fw32fd: TWin32FindData;    function Set...
32天前
04815
Delphi 复杂数据类型-Delphi编程技巧大全

Delphi 复杂数据类型

#### 1. 枚举类型Pascal程序不仅用于数值处理,还更广泛地用于处理非数值的数据。例如,性别、月份、星期几、颜色、单位名、学历、职业等。##### 1.1. 枚举类型的定义格式: type 枚举类型标识符...
31天前
04515
Delphi中Webbrowser自动登录路由器网页-Delphi编程技巧大全

Delphi中Webbrowser自动登录路由器网页

procedure TForm1.Button1Click(Sender: TObject);begin//www.delphitop.com 搜集整理webbrowser1.Navigate('http://192.168.1.1');Timer1.Enabled:=True;end;procedure TForm1.Timer1Timer(Sen...
30天前
04815
delphi tidhttp 超时设置无效的解决方法-Delphi编程技巧大全

delphi tidhttp 超时设置无效的解决方法

现在delphi都发布到xe8了,tidhttp还有缺陷,那就是超时设置在没有网络或者连不上服务器的时候是无效的,不管你设置为多少都要10-20秒。connectTimeout和readTimeout都试过了,网上找了一圈,有...
30天前
04215
Delphi TrayIcon1如何把窗体关闭到系统托盘-Delphi编程技巧大全

Delphi TrayIcon1如何把窗体关闭到系统托盘

for I := 0 to 200 dobegin  Edit_Y.Items.Add((1949+i).ToString);end;Edit_Y.ItemIndex:=Edit_Y.Items.IndexOf(formatdatetime('yyyy',now()));
30天前
04715
Delphi 精确打印Image画布-Delphi编程技巧大全

Delphi 精确打印Image画布

最近在做一个打印报告的小软件,里面需要将Image上显示的东西,按照“所见即所得”的原则打印出来。好吧,最直接的方法当然是把Image的画布以图片的形式输出,这样既不用考虑画布上信息之间的相...
30天前
06115
Delphi XE6 Android拨号函数-Delphi编程技巧大全

Delphi XE6 Android拨号函数

//引用单元:FMX.PlatForm, FMX.PhoneDialerprocedure TForm1.Call(ANum: String);var  PhoneDialerService: IFMXPhoneDialerService;begin  if ...
21天前
04015
delphi中关键字inherited-Delphi编程技巧大全

delphi中关键字inherited

A是基类、B继承A、C继承B、若C函数中有inherited方法,则C中所调用的以及实现的就是全为B中的,同样,B中若有inherited,则B中调用的全为A中的。 inherited Create(AOwner); 和...
30天前
03515
delphi 采集功能代码GetStr-Delphi编程技巧大全

delphi 采集功能代码GetStr

Function  GetStr(STR_Source,STR_Start,STR_End:String):STring; Var   I:Integer;   S:String; begin    for I := Pos(STR_Start,STR_Source)+...
29天前
05015
DELPHI格式化输出函数-Delphi编程技巧大全

DELPHI格式化输出函数

FORMAT()vars: string;begin//指令类型 types := Format('最大整数是: %d; 最小整数是: %d',[MaxInt,Low(Integer)]);//返回: 最大整数是: 2147483647; 最小整数是: -2147483648{ 提示: 格式指令...
29天前
04715
Delphi 取相同字符串 2种方法-Delphi编程技巧大全

Delphi 取相同字符串 2种方法

。方法1:感谢 QQ1949223 分享代码procedure TForm1.Button1Click(Sender: TObject);var i:integer; s,t:string;begini:=1;t:='';edit1.Text:=edit1.Text+' ';while i<=length(edi...
29天前
02715
DELPHI 控制台程序获取系统信息-Delphi编程技巧大全

DELPHI 控制台程序获取系统信息

// 经过整理的DELPHI控制台程序,体积小,功能不少。呵呵  --XIAO 2013.5program Console;{$APPTYPE CONSOLE}usesWindows,SysUtils,TLHelp32; {$R *.RES}function GetWinDir: string;...
32天前
04215
Delphi  DeleteFile 删除文件-Delphi编程技巧大全

Delphi DeleteFile 删除文件

//删除文件 DeleteFile; Windows.DeleteFilevarf: string;beginf := 'c: emp est.txt';//DeleteFile(f); //返回 Boolean//或者用系统API:Windows.DeleteFile(PChar(f)); //返回 Booleanend;====...
29天前
04015
Delphi System.net.HTTPClient 下载-Delphi编程技巧大全

Delphi System.net.HTTPClient 下载

unit WMain;interfaceuses  Winapi.Windows,  Winapi.Messages,  System.SysUtils,  System.Variants,  System.Classes,  Vcl.Graphics,  Vcl.Controls,&nb...
31天前
04415
Delphi 利用DataSnap进行数据流(TStream)的传递-Delphi编程技巧大全

Delphi 利用DataSnap进行数据流(TStream)的传递

利用DataSnap进行数据流(TStream)的传递DataSnap服务器可以通过方法调用向客户端返回数据流,当然,也可以从客户端向服务器上传数据流,都是通过方法调用的方式来实现的。下面以一个简单的例子...
31天前
05215
delphi 给TComboBox 添加图标-Delphi编程技巧大全

delphi 给TComboBox 添加图标

首先: 这有现成的控件: TComboBoxEx, 没必要使用 TComboBox; 非要在 TComboBox 基础上添加, 也可以. 本例效果图:代码文件:------------------------------------------------------------------...
30天前
05615
TRichEdit 是一个标准的RTF编辑器-Delphi编程技巧大全

TRichEdit 是一个标准的RTF编辑器

RTF编辑组件(TRichEdit)TRichEdit组件是一个标准的RTF编辑器,它允许用户输入变化字体形式和段落格式的文本。 TMemo组件可以建立一个多行的文本编辑器,遗憾的是TMemo组件只是一个简单的纯文...
30天前
04915
delphi dxCameraControl控件(拍照)-Delphi编程技巧大全

delphi dxCameraControl控件(拍照)

拍照演示DevExpressVCL 组件之一TdxCameraControl ObjectHierarchy   Properties   Methods   Events一个摄像头控件Unit dxCameraControlSyntaxTdxCameraControl...
30天前
03215
Delphi 通过api强制TEdit仅接受数字输入-Delphi编程技巧大全

Delphi 通过api强制TEdit仅接受数字输入

procedure SetEditNumeric(Handle: THandle);begin  SetWindowLong(Handle, GWL_STYLE,    GetWindowLong(Handle, GWL_STYLE) or ES_NUMBER);end;//点击按钮后,edit1 只能输入...
30天前
03715
delphi 最精简的小写金额转大写的函数-Delphi编程技巧大全

delphi 最精简的小写金额转大写的函数

function NumToChar(const n: Real): string; //可以到万亿,并且可以随便扩大范围const cNum: WideString = '零壹贰叁肆伍陆柒捌玖--万仟佰拾亿仟佰拾万仟佰拾元角分';cCha:array[0..1, 0..12]...
30天前
04715
Delphi runtime error 216 程序退出后弹出错误-Delphi编程技巧大全

Delphi runtime error 216 程序退出后弹出错误

runtime error 216是General protection fault,程序结束的时候出现此错误,一般是资源释放顺序上出了问题,诸如访问已经释放的对象实例子、已经关闭的文件等等。
21天前
04415
Delphi开发IE右键菜单扩展-Delphi编程技巧大全

Delphi开发IE右键菜单扩展

 IE除了允许我们添加自定义的主菜单外,还允许在右键菜单中添加自定义的菜单,。很多著名的网络软件如网络蚂蚁,、网际快车等都在右键菜单中添加了可以用来下载文件的快捷菜单。IE的右键菜...
34天前
05215