王云盼

摘要： procedure TSetParkForm.edtPrePosExit(Sender: TObject); // 焦点移开 或已操作begin if (G2.RowCount > 0) and (G2.Selected >= 0) then begin // 判断G2是否有数据，且为选中状态 ... 阅读全文

摘要： 记录： 解释0(代表***)，1(代表***).... // 用户需求 但数据库内的字段时整型，所以要去掉括号及括号里面的 // 数据库需求 好吧，后来我发现直接leftStr(); 或者找到'('就行了。。。 取出括号里的数： Log为memo1.lines.add(s); 阅读全文

摘要： 今天学到一个新函数，很有用QuotedStr(s);// 在s两边加单引号，这样就不会看着n多的单引号糊涂了。。。 阅读全文

摘要： 下载一个SVG格式的图标，千图网，http://tool.58pic.com/tubiaobao/用txt文本打开SVG图标拖一个PathLabel控件在PathLabel控件的Data属性添加 下载的SVG复制d=""里的内容拖一个FillRGBEffect，改变color，改变图标颜色（需要注意... 阅读全文

摘要： 放一个image，load 一张png/..图片再放一个FillRGBEffect, 将此控价拖到image下改变FillRGBEffect的Color，就改变了image图标上的颜色。原图为黑色， 改变任意颜色后：颜色改变后，变成： 阅读全文

摘要： delphi 指针分为类型指针和无类型指针：类型指针分为PChar、PInteger、PString等。无类型指针Pointer。PPChar/PP...为指针的指针@和Addr一样，为获取变量存放的地址、^为指针指向的内容。@变量， Addr(变量)， 指针^var p: pChar; ... 阅读全文

摘要： var http: TIdHttp; sendtoserver: TStringStream; str: string; begin http := TIdHttp.Create(); // 创建 http.Ha... 阅读全文

摘要： {************************************************************************** 名称： BaseImage 参数： fn: TFilename 返回值： string 功能： 将fn文件转换成Base64编码... 阅读全文

摘要： function GetWinTrayWnd: Integer; // 获取windows任务栏高度var TrayWnd: HWnd; //任务栏句柄 Rec : TRect;begin TrayWnd := FindWindow('Shell_TrayWnd',nil)... 阅读全文

摘要： function TFormMain.GetWeek: string;var date:SYSTEMTIME;begin GetLocalTime(date); case date.wDayOfWeek of 0:Result:='星期天'; 1:Result:='星期一'; ... 阅读全文