10 2015 档案

delphi TString使用（取有规律的字符串中某一项内容）
摘要：{目的，取得下面字符串中的每一项内容，如s：='a,b,c,d',要去的用逗号隔开的每一项内容这时采用Tstring，会方便很多，TString是继承TStringList带有List所有属性。}var str: string; ss: TStringList;begin str := 'a... 阅读全文
posted @ 2015-10-29 18:41 王云盼 阅读(764) 评论(0) 推荐(0)
delphi 取json中数组的值（ISuperArray）
摘要：{ "action": "******", "data": [ { "Info1": { "ID": "1", "Name": "张三", }, "Info2": [ ...... ] }, "... 阅读全文
posted @ 2015-10-29 11:27 王云盼 阅读(2913) 评论(0) 推荐(0)
delphi 数组的使用
摘要：delphi中数组就跟string使用类似，数组分为：动态数组和静态数组 还可根据数据的功能分为：数组（一维数组）、二维数组、三维数组、、、静态数组： 固定长度，内容需要定义时添加。动态数组： 故名思意没固定长度，可任意添加修改内容。使用时必须设置长度，否则编译器不通过。实际上用法都是一样，分为取出... 阅读全文
posted @ 2015-10-28 21:46 王云盼 阅读(2972) 评论(0) 推荐(0)
OnExit事件 OnChange事件
摘要：procedure TSetParkForm.edtPrePosExit(Sender: TObject); // 焦点移开 或已操作begin if (G2.RowCount > 0) and (G2.Selected >= 0) then begin // 判断G2是否有数据，且为选中状态 ... 阅读全文
posted @ 2015-10-28 21:24 王云盼 阅读(511) 评论(0) 推荐(0)
delphi取括号内或括号外的内容
摘要：记录： 解释0(代表***)，1(代表***).... // 用户需求 但数据库内的字段时整型，所以要去掉括号及括号里面的 // 数据库需求 好吧，后来我发现直接leftStr(); 或者找到'('就行了。。。 取出括号里的数： Log为memo1.lines.add(s); 阅读全文
posted @ 2015-10-28 16:24 王云盼 阅读(1189) 评论(0) 推荐(0)
QuotedStr函数
摘要：今天学到一个新函数，很有用QuotedStr(s);// 在s两边加单引号，这样就不会看着n多的单引号糊涂了。。。 阅读全文
posted @ 2015-10-28 14:56 王云盼 阅读(382) 评论(0) 推荐(0)
XE下 SVG格式的图标使用方法
摘要：下载一个SVG格式的图标，千图网，http://tool.58pic.com/tubiaobao/用txt文本打开SVG图标拖一个PathLabel控件在PathLabel控件的Data属性添加 下载的SVG复制d=""里的内容拖一个FillRGBEffect，改变color，改变图标颜色（需要注意... 阅读全文
posted @ 2015-10-27 21:59 王云盼 阅读(248) 评论(0) 推荐(0)
XE改变图标颜色
摘要：放一个image，load 一张png/..图片再放一个FillRGBEffect, 将此控价拖到image下改变FillRGBEffect的Color，就改变了image图标上的颜色。原图为黑色， 改变任意颜色后：颜色改变后，变成： 阅读全文
posted @ 2015-10-27 21:55 王云盼 阅读(288) 评论(0) 推荐(0)
delphi 指针 认识
摘要：delphi 指针分为类型指针和无类型指针：类型指针分为PChar、PInteger、PString等。无类型指针Pointer。PPChar/PP...为指针的指针@和Addr一样，为获取变量存放的地址、^为指针指向的内容。@变量， Addr(变量)， 指针^var p: pChar; ... 阅读全文
posted @ 2015-10-24 15:07 王云盼 阅读(325) 评论(0) 推荐(0)
delphi Post数据到网页
摘要：var http: TIdHttp; sendtoserver: TStringStream; str: string; begin http := TIdHttp.Create(); // 创建 http.Ha... 阅读全文
posted @ 2015-10-24 10:46 王云盼 阅读(503) 评论(0) 推荐(0)
delphi将图片转换成Base64编码函数
摘要：{************************************************************************** 名称： BaseImage 参数： fn: TFilename 返回值： string 功能： 将fn文件转换成Base64编码... 阅读全文
posted @ 2015-10-24 10:39 王云盼 阅读(8538) 评论(0) 推荐(0)
delphi 获取windows任务栏的高度
摘要：function GetWinTrayWnd: Integer; // 获取windows任务栏高度var TrayWnd: HWnd; //任务栏句柄 Rec : TRect;begin TrayWnd := FindWindow('Shell_TrayWnd',nil)... 阅读全文
posted @ 2015-10-22 21:14 王云盼 阅读(374) 评论(0) 推荐(0)
获取当天是星期几，计算两个日期相隔时间
摘要：function TFormMain.GetWeek: string;var date:SYSTEMTIME;begin GetLocalTime(date); case date.wDayOfWeek of 0:Result:='星期天'; 1:Result:='星期一'; ... 阅读全文
posted @ 2015-10-22 21:13 王云盼 阅读(304) 评论(0) 推荐(0)
十六进制转换成十进制函数
摘要：{*------------------------------------------------ 十六进制转换成十进制函数 @param @return-------------------------------------------------}function HexToInt(s... 阅读全文
posted @ 2015-10-22 21:12 王云盼 阅读(955) 评论(0) 推荐(0)
循环控件
摘要：今天看了以前刚学D写的一个程序，发现好多垃圾代码，我有本事把Edit一个一个的写下去Edit1.MaxLength := 2;Edit2.MaxLength := 2;Edit3.MaxLength := 2;Edit4.MaxLength := 2;Edit5.MaxLength := 2;Edi... 阅读全文
posted @ 2015-10-22 21:00 王云盼 阅读(215) 评论(0) 推荐(0)
delphi监控文件夹
摘要：(****************************************** 文件和目录监控 当磁盘上有文件或目录操作时，产生事件 使用方法： 开始监控: PathWatch(Self.Handle, 'C:\FtpFolder'); 解除监控：PathWatch(-1); 在... 阅读全文
posted @ 2015-10-19 09:27 王云盼 阅读(1709) 评论(0) 推荐(0)
delphi让exe开机自启动
摘要：procedure AutoRunOnSystemStart(Title, FileName: String);const _Software_Microsoft_Windows_CurrentVersion_Run_ : string = '\Software\Microsoft\Windows\... 阅读全文
posted @ 2015-10-17 18:17 王云盼 阅读(613) 评论(0) 推荐(0)
delphi窗体启动外部exe
摘要：uses Winapi.Windows;WinExec(PAnsiChar(Application.ExeName), sw_normal); // PAnsiChar ： string to PAnsiChar 启动外部的exe 阅读全文
posted @ 2015-10-17 18:13 王云盼 阅读(623) 评论(0) 推荐(0)
浅谈delphi创建Windows服务程序与窗体实现交互
摘要：我想实现的功能是创建一个服务程序，然后在服务Start时动态创建一个窗体Form，然后把Form缩小时变成TrayIcon放在Windows托盘上。我在服务程序的OnStart事件中写到 Started := True; writeWorkLog('serve2 start'); /... 阅读全文
posted @ 2015-10-17 13:28 王云盼 阅读(2581) 评论(0) 推荐(0)
delphi7和XE下 获取路径
摘要：XE里没有Application.Exename所以用paramstr(0);Str:=ParamStr(0); //自己全路径c:\555\qq.exe,可用于控制台Str:=ExpandFileName(ParamStr(0)); //获取本程序的完整路径 c... 阅读全文
posted @ 2015-10-17 13:06 王云盼 阅读(688) 评论(0) 推荐(0)
exe文件停止运行的情况
摘要：1.程序问题。2.服务器问题。3.内存占用问题。一般情况下，关掉程序，重新打开就可以。上述情况不行，则关掉电脑，重启。再不行，Ctr + Alt + Del关掉程序的进程。不行, Win + R + regedit + 回车，关掉服务。再不行，进入注册表，...User里搜索程序名，删掉。 阅读全文
posted @ 2015-10-15 22:28 王云盼 阅读(1502) 评论(0) 推荐(0)
XE中rectangle实现渐变
摘要：Fill -> Kind -> Gradient(选项) -> Gradient(Edit)添加颜色即可 阅读全文
posted @ 2015-10-12 21:40 王云盼 阅读(238) 评论(0) 推荐(0)
delphi创建服务程序
摘要：创建一个自己的服务程序：File -> New -> Other -> New(选项) -> ServiceApplication 这样delphi会自动生成服务程序的框架。保存合适的项目名称。(这里单元名为UnitServer.pas, 工程名为ProjectServer.dpr)在新建的服务里，... 阅读全文
posted @ 2015-10-12 21:34 王云盼 阅读(529) 评论(0) 推荐(0)
LeftStr函数使用
摘要：LeftStr(s, i);表示返回字符串s的左边共I位字符的一个新字符串。var i: integer; s: string; result: string;begin i := 3; s ：= 'abcd1234'; result := LeftStr(s, ... 阅读全文
posted @ 2015-10-12 17:04 王云盼 阅读(1364) 评论(0) 推荐(0)
Delphi7中的Char和XE中的Char
摘要：我用FillChar()函数时，发现两个版本中的Char不一样。在delphi7中procedure TForm2.Button1Click(Sender: TObject);var s: array[0..3] of Char; i: integer;begin FillCh... 阅读全文
posted @ 2015-10-12 16:34 王云盼 阅读(946) 评论(0) 推荐(0)