function T_SunnySky_SDK.JoinItems(AParamDic: TDictionary<string, string>): string; var sb : TStringBuilder; key : TPair<string,string>; begin if not Assigned(AParamDic) then Result := '' else if AParamDic.Count = 0 then Result := '' else begin

Delphi在Webbrowser中插入 HTML/java script代码 使用方法将下面的代码赋值到1个记事本里保存,然后保存为xxx.htm就可以看到效果使用PasteHtml实现功能 的事件 Windows Media播放器 mp3 mp4 Windows Real Player Flash Player Mid背景音乐 图片 的方法 ( (WebBrowser1.Document as IHTMLDocument2).selection.createRange as IHtmlTxt

http://blog.csdn.net/chinazhd/article/details/45047777 //查询记录 procedure TForm1.Button1Click(Sender: TObject); begin ADOQuery.Close; ADOQuery.SQL.Clear; ADOQuery.SQL.Add('select * from YourTABLE where 查询条件'); ADOQuery.Open; //插入记录 procedure TForm1.But

Delphi XE10支持MongoDB的数据库,提供了个例子restaurants可批量导入数据. 本文对比Delphi例子与MongoDB自带的mongoimport导入批量数据的性能. 步骤: 1.运行例子前需要先安装MongoDB, MongoDB安装及运行mongod.exe,安装完成后bin目录中有mongoimport.exe,可将json批量数据导入到数据库中. 2.Delphi MongoDB例程数据库保存在: C:\Users\Public\Documents\Embarca

Delphi 2009+ 的 System.SysUtils提供了一个类似.Net的StringBuilder,用于存储字符数组. 很多人不明白为什么要用TStringBuilder, Delphi中有string,有几乎所有TStringBuilder的功能函数, System.SysUtils中还有TStringHelper方便扩展String,更方便String的使用. 从Delphi提供的源码看,TStringBuilder与string最大的区别是,TStringBuilder是可以预

http://qqhack8.blog.163.com/blog/static/1141479852012102133475/     Delphi 自动检测U盘插入.拔出及获取U盘盘符! u盘的 插入和删除windows会给所有的程序发出WM_DEVICECHANGE 信息//这句放在private里面procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE; procedure TForm1.WMDeviceCh

Delphi+MySQL:TADOQuery使用插入中文乱码解决方法 with adoquery dobeginclose;sql.clear;sql.text:=' insert into test (FieldName) values (:FieldName) ';Parameters.ParamByName('FiledName').Value := UTF8Encode('中文(简体/繁體)');ExecSQL;end;

http://www.cnblogs.com/azhqiang/p/4050331.html 在进行数据库操作时, 我们经常会遇到批量向数据库中写入记录的情况. 在这里我提供3种操作方式:   1.  单条语句循环插入, 这是最笨的方法: for i := 0 to 100 do   ADOCommand1.Execute('IINSERT INTO .....')   //伪码, 只是说明意思   2.  多条语句批量插入, 将多条Insert语句拼成一条语句, 一次执行: for i :=

 <table width="174"  height="76" border="1" align="center" cellpadding="1" cellspacing="1" bordercolor="#000000" bgcolor="#FFFFFF" summary="Text">table的属性width

http://www.jx19.com/xxzl/Delphi/2010/04/17/ShiZhanDELPHI_YuanChengXianChengChaRu_DLLZhuRu/ 远程注入DLL方法有很多种,也是很多木马病毒所使用的隐藏进程的方法,因为通过程序加载的DLL在进程管理器是没有显示的．这里介绍一种用 CreateRemoteThread 远程建立线程的方式注入DLL． 首先,我们要提升自己的权限,因为远程注入必不可免的要访问到目标进程的内存空间,如果没有足够的系统权限,将无法作任何

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls; type TForm1 = class(TForm) Button1: TButton; btn1: TButton; ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; ADOC

unit InsRich;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,ActiveX,ComCtrls;const REO_CP_SELECTION = ULONG(-1); REO_BELOWBASELINE = $00000002; REO_RESIZABLE = $00000001; REO_STATIC = $40000000; EM_GE

orsn1.StartTransaction; try qry1.Sql.Clear; qry1.Sql.Text:=' select * from log '; qry1.Open; qry1.Insert; qry1.FieldByName('Rq').AsDateTime:=StrToDate(FormatDateTime('yyyy-mm-dd',Czrq)); qry1.FieldByName('User').AsString:=Czy; qry1.Post; qry1.ApplyUp

unit Unit1; interface uses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,DB,DBClient, Vcl.Grids, Vcl.DBGrids; type TForm1 = class(TForm) dbgrd1: TDBGrid; procedu

' declare @i int; '+ ' set @i=0; '+ ' while @i<4 '+ ' begin '+ ' insert into NBCommission(Type,ItemNo,Unit,Amount,CType) '+ ' select convert (varchar,@i),a.ItemNo,b.code,''0'',''0'' from InvtItemItem a,Nbunit b where a.unit=b.code and '+ ' (not exist

//增 procedure TForm1.btnAddClick(Sender: TObject); begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('select * from AZZ where 排名=(''' + Edit1.Text + ''')'); ADOQuery1.Open; //if ADOQuery1.IsEmpty then ?????????????????????????? then //如果记

unit USBDeviceNotify;//USB Device arrival or removeinterface uses  Windows, Messages, SysUtils, Classes, Forms; type  PDevBroadcastHdr = ^DEV_BROADCAST_HDR;  DEV_BROADCAST_HDR = packed record    dbch_size:         DWORD;    dbch_devicetype:   DWORD; 

今天再细研究了一下Treeview的用法,网上虽然总结了很多,但是还是有很多节点没有讲到了,也给使用中遇到很多问题.特地总结一下: 1.概念 Treeview用于显示按照树形结构进行组织的数据.Treeview控件中一个树形图由节点(TreeNode)和连接线组成.TtreeNode是TTreeview的基本组成单元. 一个树的节点又包含文本(Text)和数据(Data).Text为String类,Data则为无定形指针(Untyped   Pointer),可以指向一个与节点相联系的数据结构.

在查询数据里,发现数据不匹配,检查发现少了"&"符号,试了添加转义字符等方式还是不行,经过摸索发现解决办法: 设置ResourceOptions.MacroCreate 和 MacroExpand 为False

delphi开发速度迅捷至少有30%(猜的,呵呵)的原因是因为其字符串(string.WideString.PChar.PAnsiChar等)处理能力. 而从delphi XE4开始,在system等单元中,出现了一个叫 NEXTGEN 的编译条件,这条件是在进行移动开发时自动定义的,而传统桌面开发时没有定义NEXTGEN. 这个编译条件直接导致原来的PAnsiChar.AnsiString无法使用(传统桌面开发没有影响),只要稍微接触深入,即可发现,其实并不是无法使用,字符串类型新增了如下定义