DELPHI者，经典开发工具、美奂美仑之开发环境也。 盖论DELPHI其身世，实为神界之神物，后借宝蓝公司之手，于1990年代，现于江湖。 DELPHI一出江湖，码农爱之，企业爱之。一时间，风雨雷动，群...

http://www.xinjuji.com/dianshi/cctvju/junshilianmeng2huxiaolongyin/zaixianguankan-0-7.html

CategoryPanelGroup1 动态绘制 及 按钮 点击 procedure TFormMain.CategoryButtons1AfterDrawButton(Sender: TObject; const Button: TButtonItem; Canvas: TCanvas; Rect: TRect; State: T...

using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Data; using System.Data.SqlClient; using System.Windows.Forms; namespace Hotel...

using System; using System.Collections.Generic; using System.Data.SqlClient; using System.Linq; using System.Text; using System.Threading.Tasks; using System.Configuration; usin...

//删除文件或者文件夹 bool DeleteFile(char * lpszPath) { SHFILEOPSTRUCT FileOp={0}; FileOp.fFlags = FOF_ALLOWUNDO | //允许放回收站 FOF_NOCONFIRMATION; //不出现确认对话框 FileOp.p...

使用SHFileOperation删除文件 今天使用SelectDirectory选择文件夹，用SHFileOperation来删除文件夹，一直都报错，蛋疼了老半天，原来是SelectDirectory之后就将当前目标设为SelectDirectory...

https://t00y.com/dir/1041485-3049764-93c76d

function _DataSetToJson(ADataset: TDataSet): string; // 不含字段类型 部分, 数据均按 字符串格式返回 // [{"CityId":"18","CityName":"西安"},{"CityId":"53","CityName":"广州"}] var L...

一、string转为ansistring 1、直接赋值 （有警告） 2、ansistring()类型强制转换。（无警告） 二、ansistring 转为string 1、直接赋值 （有警告） 2、string()类型强制转换。（无警告） 三、...

procedure TForm1.Button1Click(Sender: TObject); var t: cardinal; sm: TMemoryStream; begin t := gettickcount; sm := TMemoryStream.Create; sm.LoadFromFile('c:\0001.jpg'); ftp.Host...

// 仅获取文件夹 内的 文件 function GetFiles(Path, ext: string): TStringList; var Rec: TSearchRec; Lst: TStringList; begin if Path[Length(Path)] <> '\' then Path := Path + '\'; ...

// 阿里云短信接口 unit uAliyunSms; { Author: MarkWu Q Q: 77910086 } interface uses Classes, SysUtils, uSMSIntf, IdHTTP, flcHash, EncdDecd; type TAliYunSms = class(TInterface......

在delphi里的RichEdit指定光标到某行某列 procedure GotoRowCol(Row, Col : Integer; RichEdit : TRichEdit); var TextLen, i : Integer; begin if Row > RichEdit.Lines.Count then Exit; T...

读取UTF-8格式的文件内容 function LoadUTF8File(AFileName: string): string; var ffileStream:TFileStream; fAnsiBytes: string; S: string; begin ffileStream:=TFi......

// 绘制 BMP 格式图像 procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState); var bmp : TBitmap;...

对ehlib 显示效果不够满意，而做的调整 修改这个过程： procedure TCustomDBGridEh.DrawIndicatorCell(ACol, ARow: Longint; AreaCol, AreaRow: Longint; ARect: TRect; AState: TGridDrawS...

uses IdMessage, IdMessageParts, IdAttachment, IdGlobalProtocols, ...; procedure SaveAttachmentsFromFile(FileName: String) var IdMessage: TIdMessage; MsgPart: TidMessagePart; Hea...

Function SHGetSpecialFolderLocation(hwndOwner: HWND; nFolder: Integer; var ppidl: PItemIDList): HResult; stdcall; Function SHGetPathFromIDList(pidl: PItemIDList; pszPath: PChar)...

之前发的 搜 不到了，为了方便，再补发如下： ZConnection1.Protocol := 'mysql-5'; ZConnection1.ControlsCodePage := cGET_ACP; ZConnection1.ClientCodepage := 'utf8'; ZConnection1.Aut...