dianmengkui1387-CSDN博客

转载在delphi 获取特殊目录 SHGetSpecialFolderLocation SHGetPathFromIDList

在delphi 获取特殊目录 SHGetSpecialFolderLocation SHGetPathFromIDList前往专题相关软件相关文章发表评论来源：本站整理时间：2015/7/21 10:31:21字体大小：A-A+作者：不详点击：1334评论：0次标签： delphi新浪体育app客户端3.10.0.0 官网安卓版类型：新闻资讯大小：33....

2019-07-03 10:49:00 497

转载先select 再Insert

/****** Script for SelectTopNRows command from SSMS ******/insert [MyDB].[dbo].[shop_sell] ( [shop_strid], incDays, refreshDT, sell_num ) SELECT [shop_strid], 7, '201...

2019-06-13 21:30:00 615

转载 exists 用法

/****** Script for SelectTopNRows command from SSMS ******/SELECT * FROM [MyDB].[dbo].[LbShops] where biz_type = 1 and not exists ( SELECT shop_strid FROM [MyDB].[dbo].[shop_sell] where s...

2019-06-13 21:09:00 238

转载 JSON null

jo := SO('{"st":10021,"msg":"无返回内容","data":null}'); ShowMessage(jo['data'].S['num']); //空字符串转载于:https://www.cnblogs.com/CodeGear/p/10889147.html

2019-05-19 14:14:00 166

转载创建惟一索引时,"忽略重复键"是什么意思呢

1、好像是批量插入的情况2、默认，否 OFF，就是这次批量操作全取消。IGNORE_DUP_KEY = { ON | OFF } 指定对唯一聚集索引或唯一非聚集索引执行多行插入操作时出现重复键值的错误响应。默认值为 OFF。ON发出一条警告信息，且只有违反了唯一索引的行才会失败。 OFF发出错误消息，并回滚整个 INSERT 事务。 IGNORE_DUP_...

2019-05-09 11:45:00 804

http://bbs.2ccc.com/topic.asp?topicid=74320怎么将DBNavigator显示时是中文标题来源：本网整理如何将DBNavigator显示时是中文标题?如题:就是现在想实现在DBNavigator上显示的是中文文字，而不是原来默认的图标？------解决方案--------------------关注-----...

2019-04-21 09:32:00 393

转载 Ehlib 学习

似乎是为了垂直滚动条SumList.Active := True;SumList.VirtualRecords := True;TDBGridEh 设计时It is useful to use dynamic columns when the list of fields of DataSet is not known in advance.in advance...

2019-04-14 21:28:00 151

转载低版本IDE 打开高版本 IDE 代码时 unit

可以用单元别名比如Vcl.Forms=Forms 来兼容。转载于:https://www.cnblogs.com/CodeGear/p/10579101.html

2019-03-22 16:27:00 164

转载 ACCESS 查询重复记录

In (SELECT [全称] FROM [New14] As Tmp GROUP BY [全称],[账号],[银行] HAVING Count(*)>1 And [账号] = [New14].[账号] And [银行] = [New14].[银行])转载于:https://www.cnblogs.com/CodeGear/p/10516665.html...

2019-03-12 14:50:00 1290

转载不同版本的IDE ，对应的选项有变化

xx.dproj对应的项目级选项也不同，所以，要分别保存为不同的文件。如果不同的IDE，打开同一个.dproj文件，会因为选项界面的选项不同，提示一些错误。转载于:https://www.cnblogs.com/CodeGear/p/10411652.html...

2019-02-21 12:21:00 171

转载 XE 使用记录

project的选项是分编译版本的，debug，release，上层还有一个base通用的设置值，最好放base里，比如Search path里自己添加的路径，免得2个环境分别添加。转载于:https://www.cnblogs.com/CodeGear/p/10394975.html...

2019-02-18 12:58:00 132

转载 Edge 浏览器调用

ShellExecute(0,'open',PChar('Microsoft-Edge:'+Edit1.Text),nil,nil,SW_SHOW);转载于:https://www.cnblogs.com/CodeGear/p/10192071.html

2018-12-28 18:08:00 840

转载 or 的判断

NeedCompact := NeedCompact or (AdoQ.ExecSQL > 0)转载于:https://www.cnblogs.com/CodeGear/p/7029438.html

2017-06-16 22:11:00 162

转载执行这些代码, Edit1只能输入数字,小数点和负号,负号和小数点只能输入一个,负号必须在最前,粘贴的数字必须完全正确....

执行这些代码, Edit1只能输入数字,小数点和负号,负号和小数点只能输入一个,负号必须在最前,粘贴的数字必须完全正确.type TForm1 = class(TForm) Edit1: TEdit; procedure FormCreate(Sender: TObject); private Edit1OldProc: TWndMe...

2017-05-20 07:25:00 179

转载 json 2017-04-21 10 17

jo := SO(); jo.S['tttt'] := 'tttt'; TbSendedTidJson['jo'] := jo; ja := TbSendedTidJson['jo'];//取出来后，增加新的key， TbSendedTidJson的内容也变的ja.S['bbb'] := 'bbb'; ShowMessage(TbSendedTidJson....

2017-04-21 10:17:00 97

转载 TOleControl(WebBrowser1).Visible := False 这样就可以隐藏浏览器控件

TOleControl(WebBrowser1).Visible := False 这样就可以隐藏浏览器控件了。---------------------------------------------- RTC三层技术交流，QQ：64445322作者：男 crystalmoon (黑夜杀手) ▲▲▲▲▲ -盒子活跃会员2017-4-13 ...

2017-04-13 15:42:00 186

转载 RegDataToDataType

function RegDataToDataType(Value: TRegDataType): Integer;begin case Value of rdString: Result := REG_SZ; rdExpandString: Result := REG_EXPAND_SZ; rdInteger: Result := REG_DW...

2017-04-07 15:25:00 227

转载 TModalResult 和 MessageBox 返回值

//其实是对应的{ TModalResult values }const mrNone = 0; mrOk = idOk; mrCancel = idCancel; mrAbort = idAbort; mrRetry = idRetry; mrIgnore = idIgnore; mrYes ...

2017-03-10 13:40:00 136

转载延时程序

procedure delay(msecs: integer);var Tick: DWord;Event: THandle;beginEvent := CreateEvent(nil, False, False, nil); try Tick := GetTickCount + DWord(msecs); whil...

2017-03-09 09:11:00 127

转载基于WMI的信息查询和编辑,按微软的说明一般都是

晕!这个不是很简单的东西吗?//---------WMI----------type Rec_Wmi = record ComputerName: string; Namespace: string; User: string; Password: string; WMIType: string; Enum: ...

2017-02-27 20:21:00 152

转载 IDE 版本

BDS 52007D11VER180 and VER185RAD Studio 8XED15VER 220RAD 18XE 10.1 BerlinD24VER310Studio20XE 10.3.1D26VER330http://www.cnblogs.com/...

2017-02-13 08:56:00 118

转载分区助手：无损分区的领导者

http://www.disktool.cn/index.html转载于:https://www.cnblogs.com/CodeGear/p/6389405.html

2017-02-11 17:03:00 158

转载给msde加装企业管理器

-=给msde加装企业管理器=-首先，反对所谓的绿色版，运行那是相~~~当不稳定，自动关闭，要你有什么用？还广告飞扬！为了调试，花了我整整一天的时间。给大家节省的时间，也为了让大家少走点弯路。http://www.microsoft.com/downloads/info.aspx?na=46&p=5&SrcDisplayLang=zh-cn&SrcCatego...

2017-02-11 09:39:00 209

转载 InterBase 数据库与驱动版本不同

[Window Title]Project1 - Delphi 10.1 Berlin - Unit1[Content]Failed: "unsupported on-disk structure for file F:\OLD-E\EBOOK\QCOM\DEMOS\CHINESEDEMO.GDB; found 11, support 16"[OK]表...

2017-02-11 09:31:00 322

转载 delphi 演示数据路径

链接里默认的---------------------------Error---------------------------I/O error for file "C:\ProgramData\Embarcadero\InterBase\gds_db\examples\database\employee.gdb"Error while trying to ope...

2017-02-11 09:29:00 257

转载 TNetHTTPClient 使用

unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.Net.URLCl...

2017-01-29 16:41:00 389

转载锤子科技 Smartisan M1L 咖啡金真皮背面高配版 5.7

http://www.smartisan.com/m1/#/os 快人一步的OShttp://www.smartisan.com/shop/#/buyphone?c=coffee&v=senior&n=m1l5.7咖啡金 · 真皮高配版 (6GB RAM + 64GB ROM)官网图片：我的手机截屏：转载于:htt...

2016-11-21 15:13:00 127

空空如也

空空如也